object frmObra: TfrmObra
  Left = -5
  Top = 2
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Obras'
  ClientHeight = 704
  ClientWidth = 1016
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Label60: TLabel
    Left = 187
    Top = 352
    Width = 29
    Height = 11
    Caption = 'Total:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -9
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText13: TDBText
    Left = 300
    Top = 352
    Width = 41
    Height = 11
    Alignment = taRightJustify
    AutoSize = True
    DataField = 'totalGeneral'
    DataSource = sCompra
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object DBText12: TDBText
    Left = 376
    Top = 284
    Width = 71
    Height = 13
    Alignment = taRightJustify
    DataField = 'subtotal'
    DataSource = sPagoSub
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label66: TLabel
    Left = 330
    Top = 284
    Width = 34
    Height = 13
    Caption = 'Total:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object pagObra: TPageControl
    Left = 0
    Top = 83
    Width = 1016
    Height = 579
    ActivePage = TabSheet4
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabIndex = 3
    TabOrder = 0
    OnChange = pagObraChange
    OnChanging = pagObraChanging
    object TabSheet3: TTabSheet
      Caption = 'Portada'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      object Panel7: TPanel
        Left = 0
        Top = 0
        Width = 1008
        Height = 551
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 13555670
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Shape1: TShape
          Left = 950
          Top = 48
          Width = 14
          Height = 17
          Brush.Color = clSilver
          Pen.Color = clBtnShadow
          Pen.Style = psClear
          Shape = stCircle
        end
        object Shape2: TShape
          Left = 974
          Top = 48
          Width = 14
          Height = 17
          Brush.Color = clRed
          Pen.Color = clRed
          Shape = stCircle
        end
        object Shape3: TShape
          Left = 998
          Top = 48
          Width = 14
          Height = 17
          Brush.Color = clBlack
          Shape = stCircle
        end
        object Panel17: TPanel
          Left = 2
          Top = 62
          Width = 1012
          Height = 339
          BevelOuter = bvNone
          Color = 11779801
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object imgObra: TImage
            Left = 11
            Top = 4
            Width = 534
            Height = 309
            Center = True
            Picture.Data = {
              0A544A504547496D6167656A240000FFD8FFE000104A46494600010101006000
              600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
              0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
              3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
              3232323232323232323232323232323232323232323232323232323232323232
              32323232323232323232323232FFC0001108012C028603012200021101031101
              FFC4001F0000010501010101010100000000000000000102030405060708090A
              0BFFC400B5100002010303020403050504040000017D01020300041105122131
              410613516107227114328191A1082342B1C11552D1F02433627282090A161718
              191A25262728292A3435363738393A434445464748494A535455565758595A63
              6465666768696A737475767778797A838485868788898A92939495969798999A
              A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
              D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
              01010101010101010000000000000102030405060708090A0BFFC400B5110002
              0102040403040705040400010277000102031104052131061241510761711322
              328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
              292A35363738393A434445464748494A535455565758595A636465666768696A
              737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
              A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
              E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F7FA
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800AAB6BA9D85F4F7105A5F5B5C4D6CDB278E1955DA2
              6C918600FCA720F07D0D675E7FC4E7587D28FCDA75B441AF80E9348DF72127BA
              ED059D38243459CAB3036AEB43B0B982DE35812DE4B45DB673408AAF6BC01FBB
              38F946000571B4818208C8A577D0D3962BE23468ACED12FE5BFD381BA544BE81
              8C1771A0202CABC31009C856E1D73C94653DEB469AD489269D9851453269A2B6
              8249E7952286352EF23B055450324927A003BD021F4565D9EB897374904D6379
              65E767ECCF748AA2E30327680C4AB6DF9B63856C678F95B6EA509DC6E2E3B851
              45140828A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028
              A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028
              A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028
              A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028
              A28A0028A28A0028A28A0028A28A0028A2B13C5FF3F84F51B51F7EF62FB0C64F
              4124E44284FF00B219C13D4E33807A526ECAE5463CD24BB87857FD2347FED56E
              5F5595AFB27A98DF1E4823A0658444A71C654F27A9DBA28A12B2094B99B66241
              FE83E30B9B71C45A95B0BB551CFEF622B1C8CD9E9947B7000E3E463C1FBDB758
              9E22FDCCDA2DF37315AEA51EF03EF1F351EDD71F479949F607A9C03B7422A7AA
              4FFAD3FE0582B13C41FE953699A4FDE8AF6E7FD25179630468CED91FDC2E238D
              B208225DBD5856DD627FC7CF8E7FBBF60D37EBE67DA25FD36FD97DF3BFB63918
              53D1DFB7F4BF11FE278657D02E6E6D62792FAC94DDDA2C6A4B196305954639C3
              728C060957619E6B5619A2B98239E0952586450E9223065752320823A823BD3E
              B13C23F2785ECED3AFD877D86EFEFF0090ED0EFC76DDE5EEC738CE32719A3A86
              F0F47F9FFC31B7451453330A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
              28A2800A28A2800A28A2800A28A2800A28A2800A28A2800AC4F15FFC81E0FF00
              B09587FE95C35B7589AE7FC863C33FF6127FFD24B8A52D8D297C49F6D7EED4DB
              A28A2999989E2BFF00903C1FF612B0FF00D2B86B6EB13C65FF002237883FEC1B
              73FF00A29AB6E975347F02F57FA0562699FE91E28D76EFEEF93F67B0DBD73B10
              CDBF3EFF0069DB8FF6339E7036EB1343FF0090C789BFEC249FFA496F43DD0436
              97A7EA8DBAC4F0E7EE7FB5EC3EF7D93529BE7E9BFCEC5CF4ED8F3F6FBEDCF19C
              0DBAC4D0FF00E431E26FFB0927FE925BD0F7411F864BFADFFE09B7451453330A
              28A2800A28A2800A28A28032EF355BDB6BA7862F0FEA5768B8C4D0C96C11B8CF
              1BE556E3A72074AA37BE28BAD3EC6E2F6EBC2FAC476F6F134B2BF996876A28C9
              3813E4F03B5745589E32FF00911BC41FF60DB9FF00D14D52EF6BDCD69B8B928B
              8FE7FE651BFF001A3699BFED9E1BD622D96D2DDB7CD6AD88A2DBBDB898F4DEBC
              7539E3357BFB7351FF00A15358FF00BFB69FFC7EB13C79FF002F7FF62DEABFFB
              6F5DB5257BB572E5CAA11972EF7EFF00E6627F6E6A3FF42A6B1FF7F6D3FF008F
              D1FDB9A8FF00D0A9AC7FDFDB4FFE3F5B745559F733E75FCABF1FF3313FB7351F
              FA15358FFBFB69FF00C7E8FEDCD47FE854D63FEFEDA7FF001FADBA28B3EE1CEB
              F957E3FE6627F6E6A3FF0042A6B1FF007F6D3FF8FD1FDB9A8FFD0A9AC7FDFDB4
              FF00E3F5B745167DC39D7F2AFC7FCCC4FEDCD47FE854D63FEFEDA7FF001FA3FB
              7351FF00A15358FF00BFB69FFC7EB6E8A2CFB873AFE55F8FF99C9D978D6E2F25
              483FE118D57CF76B908892DB1056097CA739328C104AE47A9382C066BA986469
              608E4789E16750C63720B2123A1DA48C8E9C123DCD719E1EFF009186C7FEE39F
              FA5F1D76D4A377B975D453B455BFE1D851451546014514500145145001451450
              0145145001451450014514500145145001451450014514500145145001451450
              0145145001451450014514500145145001451450014514500145145001451450
              014514500145145001451450014514500145145001589AE7FC863C33FF006127
              FF00D24B8ADBAC4F15FF00C81E0FFB09587FE95C34A5B1A52F892EFA7DFA1B74
              5145333313C65FF2237883FEC1B73FFA29AB6EB13C57FF0020783FEC2561FF00
              A570D6DD2EA68FE05EAFF40AC4D0FF00E431E26FFB0927FE925BD6DD6259FC9E
              35D5E34F951AC6CE6651C032179D4B11FDE2A8833D708A3B0A1EE821B4BD3F54
              6DD62687FF00218F137FD8493FF492DEB6EB13C2DF369B7733732C9A95EEF73F
              79B6DC488B93DF088AA3D0281D00A1EE823A464FE5FAFE86DD14514CCC28A28A
              0028A28A0028AE7756F135EE96A5BFE11AD4A54FB4C56EB289AD951F7CAB1823
              F7BBB9DC30081DB3B792083C51757335CC50F85F5867B5944530F32D06D728AF
              8E67E7E5753C7AD4F3234F652B5FF54745589E32FF00911BC41FF60DB9FF00D1
              4D47F6E6A3FF0042A6B1FF007F6D3FF8FD63F8B359BF97C1BAE46FE19D56157D
              3E75323C96A55018DB93B662703AF009F63449E8CBA54DF3ADB7EE8678F3FE5E
              FF00EC5BD57FF6DEBB6AF34F1AEAB7B37DA77F87F52833E1FD4D3F7925B1C03E
              465FE594FCAB819EFC8C03CE3D06FEEE6B38164834FB9BE62DB4C76ED1860307
              9FDE3A8C718EB9E7A524F565548BF6705EBD4B545627F6E6A3FF0042A6B1FF00
              7F6D3FF8FD1FDB9A8FFD0A9AC7FDFDB4FF00E3F557465ECDF97DEBFCCDBA2B13
              FB7351FF00A15358FF00BFB69FFC7E8FEDCD47FE854D63FEFEDA7FF1FA2E83D9
              BF2FBD7F99B745627F6E6A3FF42A6B1FF7F6D3FF008FD1FDB9A8FF00D0A9AC7F
              DFDB4FFE3F45D07B37E5F7AFF336E8AE76CBC5175A858DBDEDAF85F5892DEE22
              59627F32D06E461907067C8E0F7A9FFB7351FF00A15358FF00BFB69FFC7E8E64
              0E94968EDF7A313C3DFF00230D8FFDC73FF4BE3AEDABCFF457D660D4ADEF1BC2
              FAAF970B6A6AC0BDB2B133DDAC8B80D28E004393D0F046E0735D2FF6E6A3FF00
              42A6B1FF007F6D3FF8FD4C5E86D5E0DCB46BAF55DD91C7E209677D2CC70222DD
              6A9736120625885845C7CC0F1824C00F7C0247BD6FD79DE8F7D717175A1432E9
              3796C9FF000906A2FE74AF094248BC253E5919B70C9078C7CA704F19F44A7177
              4675E0A12B2FEB56145145518851451400514514005145140051451400514514
              0051451400514514005145140051451400514514005145140051451400514514
              0051451400514514005145140051451400514514005145140051451400514514
              00514514005145140056278BFE4F09EA3743EFD945F6E8C1E8648089901FF64B
              2007A1C670475ADBA29357562A32E5927D828AC4F0AFFA3E8FFD94DC3E952B58
              E0F511A63C924F42CD09898E38CB1E0741B742774128F2B68C4F117EFA6D16C5
              B88AEB528F791F787948F70B8FABC2A0FB13D0E08DBAC483FD3BC617370398B4
              DB6168AC38FDECA564915B3D70896E411C7CEC393F776E8454F4497F5AFF00C0
              B05625E7FA378C34BB83F245756D3DA330FF009692829246AD8EB844B8209E06
              58705B9DBACBD7ACE7B8B14B9B24F32FEC651756A99037B80434793C0DE8CF1E
              E39DBBF7750287B0A9BF7B52EDEDE41A7D8DC5EDD3F976F6F134B2BE09DA8A32
              4E072781DAA9786ACE7B0F0CE996D769B2F12D93ED2090C4CC40323123EF3172
              C49E72493939ACAB9D634EF17D8C3A768D7B0DEDBDEEDFB6BC2DBBC9B6232CAE
              3AAB38FDD804AB8DECC07C871D4D25ABB8E49C23CAF7FEBFE0851451546651D6
              750FEC8D0F50D4BCAF37EC76D25C797BB6EFD8A5B19C1C671D71458EA1F6DBCD
              4EDFCAD9F61B95B7DDBB3BF3147267A71FEB318E7A67BD72FF001134BFB5687A
              ADDFF60E8F79E569B37FA6DD4989E1C2B9F90794D9C751F32F24F4EB595A5787
              3CCD4B5C5FF842BC2B2F977CABB249BE58BFD1E13B53FD18FCBCEEE83966E3B9
              87277B1D50A3074F99BD7E5E5E67A5D15C4FFC22FF00F521783FFEFF00FF00F7
              2D1FF08BFF00D485E0FF00FBFF00FF00DCB4F9991ECA3DFF002FF31FE25F0D58
              43A540CB3EAA49D42C97E7D5AE9861AEA2078321E70783D41C118201A346F0D5
              849AAF8855A7D5408F50455DBAB5D2923ECB01E4893E6392793938C0E80018FE
              20F0E793A6C2DFF08578560CDF5A2EF866CB1CDC46369FF461F2B6769E7A13C1
              E84D2BC39E66A5AE2FFC215E1597CBBE55D924DF2C5FE8F09DA9FE8C7E5E7774
              1CB371DCE7D763A55FD9BF7DFDEBCBCCEC3FE114D3BFE7E758FF00C1CDDFFF00
              1DA82F7C17A5DF58DC5A4973AC049E26898FF6BDCB70C3078690A9EBD0823D41
              A343D36EB4BBA2B1786B41D32DE5FF005D2585C9DE700EDF97C840DC9EE78C9F
              A57455A249F4396552717A49FDFF00F059CEDC782344BACFDA06A53662784F99
              AB5D36637C6E5E64FBA70323A1C0F4A9FF00E114D3BFE7E758FF00C1CDDFFF00
              1DADBA29F2AEC4FB6A9FCCFEF3CE357D16DDBC3FE382F77AAB8B25952057D56E
              59557EC71C9820C9861B9D8E1B3D71D38AEB3FE114D3BFE7E758FF00C1CDDFFF
              001DAC4D5BFE45EF88DFF6DBFF004821ADBFB578A7FE80FA3FFE0D65FF00E47A
              8495F63A272A8E2ACFF1F241FF0008A69DFF003F3AC7FE0E6EFF00F8ED1FF08A
              69DFF3F3AC7FE0E6EFFF008ED1F6AF14FF00D01F47FF00C1ACBFFC8F47DABC53
              FF00407D1FFF0006B2FF00F23D57BBD8CAF57F9BF1FF00821FF08A69DFF3F3AC
              7FE0E6EFFF008ED1FF0008A69DFF003F3AC7FE0E6EFF00F8ED1F6AF14FFD01F4
              7FFC1ACBFF00C8F47DABC53FF407D1FF00F06B2FFF0023D1EEF60BD5FE6FC7FE
              098FE13F0D584FE0DD0E679F550D269F03109AB5D22826353C2AC8001EC0002B
              63FE114D3BFE7E758FFC1CDDFF00F1DAC7F09DCF88D7C1BA18834AD29E11A7C0
              11DF53915997CB5C120407071DB27EA6B63ED5E29FFA03E8FF00F83597FF0091
              EA63CB6D8BA8EAF3BF7BAF7FF821FF0008A69DFF003F3AC7FE0E6EFF00F8ED1F
              F08A69DFF3F3AC7FE0E6EFFF008ED1F6AF14FF00D01F47FF00C1ACBFFC8F47DA
              BC53FF00407D1FFF0006B2FF00F23D57BBD88BD5FE6FC7FE09C9E99A25AC53E8
              332CB7E5BFE122BF5C36A13B2E10DE11F297C67E41938CB65B39DCD9F47AE174
              B32B41E1D33A224C7C45A8974472CAAD8BDC80481919EF81F415DD5286C3C4B6
              E5ABEFF9B0A28A2ACE70A28A2800A28A2800A28A2800A28A2800A28A2800A28A
              2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A
              2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A
              2800A28A2800A28A280312F3FE24DAC3EAA7E5D3AE620B7C4748645FB9311D97
              692AEFC90162CE15588B575AE585B416F22CE97125DAEEB38607567BAE01FDD8
              CFCC30412D9DA01C92064D55F197FC88DE20FF00B06DCFFE8A6AABFD996163F1
              02CA7B4B1B6B79AE74FBD79E486254695BCDB6396207CC724F27D4D4BBA7A1BC
              546493979FE08D4D12C25B0D380BA647BE9D8CF772212434ADCB0048C955E117
              3C84551DAB468A2A9686326DBBB0A28A2811C4F80FFE5D3FEC5BD2BFF6E2BB6A
              E27C07FF002E9FF62DE95FFB715DB54C3E137C4FF1585145154606278CBFE446
              F107FD836E7FF45351A1FF00C863C4DFF6124FFD24B7A3C65FF2237883FEC1B7
              3FFA29A8D0FF00E431E26FFB0927FE925BD4BF8BFAF3378FF09FCFFF006D36E8
              A28AA30313C57FF20783FEC2561FFA570D1A1FFC863C4DFF006124FF00D24B7A
              3C57FF0020783FEC2561FF00A570D1A1FF00C863C4DFF6124FFD24B7A97F17F5
              E66F1FE13F9FFEDA6DD1451546014514500713AB7FC8BDF11BFEDB7FE90435DB
              5713AB7FC8BDF11BFEDB7FE90435DB54C7737ABF0AFEBA20A28A2A8C028A28A0
              0C4F06FF00C88DE1FF00FB06DB7FE8A5ADBAC4F06FFC88DE1FFF00B06DB7FE8A
              5ADBA51D91A55F8E5EAC28A28A66671363FF00301FFB19352FFDBEAEDAB89B1F
              F980FF00D8C9A97FEDF576D530D8DF11F17DFF009B0A28A2A8C028A28A0028A2
              8A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A2
              8A0028A28A0028A28A0028A28A0028A28A0028A28A0028A2B2EF3C41656374F6
              F2C3A933A63261D32E654E4678648CA9EBD8FB50DD86A2E5A246A5675FEA5756
              73AC706897F7CA577192DDE00A0E4F1FBC914E78CF4C73D6AAFF00C257A77FCF
              B6B1FF00826BBFFE3547FC257A77FCFB6B1FF826BBFF00E355375DCD1539A7F0
              FE61FDB9A8FF00D0A9AC7FDFDB4FFE3F47F6E6A3FF0042A6B1FF007F6D3FF8FD
              1FF095E9DFF3EDAC7FE09AEFFF008D51FF00095E9DFF003EDAC7FE09AEFF00F8
              D5175DCAE597F27E7FE61FDB9A8FFD0A9AC7FDFDB4FF00E3F47F6E6A3FF42A6B
              1FF7F6D3FF008FD1FF00095E9DFF003EDAC7FE09AEFF00F8D51FF095E9DFF3ED
              AC7FE09AEFFF008D5175DC3965FC9F9FF987F6E6A3FF0042A6B1FF007F6D3FF8
              FD1FDB9A8FFD0A9AC7FDFDB4FF00E3F47FC257A77FCFB6B1FF00826BBFFE3547
              FC257A77FCFB6B1FF826BBFF00E3545D770E597F27E7FE61FDB9A8FF00D0A9AC
              7FDFDB4FFE3F47F6E6A3FF0042A6B1FF007F6D3FF8FD1FF095E9DFF3EDAC7FE0
              9AEFFF008D51FF00095E9DFF003EDAC7FE09AEFF00F8D5175DC3965FC9F9FF00
              987F6E6A3FF42A6B1FF7F6D3FF008FD1FDB9A8FF00D0A9AC7FDFDB4FFE3F47FC
              257A77FCFB6B1FF826BBFF00E3547FC257A77FCFB6B1FF00826BBFFE3545D770
              E597F27E7FE61FDB9A8FFD0A9AC7FDFDB4FF00E3F47F6E6A3FF42A6B1FF7F6D3
              FF008FD1FF00095E9DFF003EDAC7FE09AEFF00F8D51FF095E9DFF3EDAC7FE09A
              EFFF008D5175DC3965FC9F9FF987F6E6A3FF0042A6B1FF007F6D3FF8FD1FDB9A
              8FFD0A9AC7FDFDB4FF00E3F47FC257A77FCFB6B1FF00826BBFFE3547FC257A77
              FCFB6B1FF826BBFF00E3545D770E597F27E7FE663F8B359BF97C1BAE46FE19D5
              6157D3E75323C96A55018DB93B662703AF009F6345CEB37E7C65A6487C33AA86
              5D3EED44664B5DCC0C96F923F7D8C0C007241F98601E717B52D6B45D5B4E9EC2
              F2D35B7B69D764A89A55F46597B8CAC60E0F4233C8C83C1AC77B5F0D3DF45764
              F8C37C513C406DD57A315279C6E1F70700807B8381887E4CDA1A2B4A0FAF47D5
              7A9D17F6E6A3FF0042A6B1FF007F6D3FF8FD1FDB9A8FFD0A9AC7FDFDB4FF00E3
              F589F6C8D7E5875EF184510E123FEC577DA3B0DCF6ACCD8F56249EE49E6B46C3
              C416B6703473DC7886F98B6E125C68938603038FDDC0A31C67A679EB557F3FC8
              874DA5A47FF4A2D7F6E6A3FF0042A6B1FF007F6D3FF8FD51D43C6C9A4797FDA5
              A35E5979B9F2FED379631EFC6338DD70338C8FCC55EFF84AF4EFF9F6D63FF04D
              77FF00C6A8FF0084AF4EFF009F6D63FF0004D77FFC6A8BF992A2EFAD3FCCE3FC
              15AADEC3F66D9E1FD4A7C787F4C4FDDC96C32079F87F9A51F2B64E3BF0720719
              EC3FB7351FFA15358FFBFB69FF00C7EB021B2F02410470A784DCAC6A1417F0DD
              C3B1006396684927DC924D68E9FAAE8DA6799F678FC48FE66377DA6CB51B8C63
              3D3CC56C75ED8CF1E82A63A2B5CD6ADA7272507F73FF0032F7F6E6A3FF0042A6
              B1FF007F6D3FF8FD1FDB9A8FFD0A9AC7FDFDB4FF00E3F47FC257A77FCFB6B1FF
              00826BBFFE3547FC257A77FCFB6B1FF826BBFF00E355775DCC7965FC9F9FF998
              FE2CD66FE5F06EB91BF86755855F4F9D4C8F25A9540636E4ED989C0EBC027D8D
              1A36B37E9AAF88597C33AAB97D41199564B5CA1FB2C0307330E7001E32304739
              C81A37BAFE8FA858DC595D59EB125BDC44D14A9FD8F7837230C11911E4707B53
              2D35BD26CEE6FA78E0D6CB5ECE2790368F7780C2348F03F75D3118F5E49A9EB7
              B9A2BF238F27E7E5E7E45AFEDCD47FE854D63FEFEDA7FF001FA3FB7351FF00A1
              5358FF00BFB69FFC7E8FF84AF4EFF9F6D63FF04D77FF00C6A8FF0084AF4EFF00
              9F6D63FF0004D77FFC6AAAEBB99F2CBF93F3FF00333B5BBDD5B52B08A087C2DA
              AAB25DDB4E4BCD6806D8E74918713F5C21C7BE3A51A6DEEAD677FAC4F2785B55
              2B7B76B3C6166B4C8510451E0FEFFAE633EBC115A3FF00095E9DFF003EDAC7FE
              09AEFF00F8D51FF095E9DFF3EDAC7FE09AEFFF008D52D2F7B94B9D479793F3F2
              F3F20FEDCD47FE854D63FEFEDA7FF1FA3FB7351FFA15358FFBFB69FF00C7E8FF
              0084AF4EFF009F6D63FF0004D77FFC6A8FF84AF4EFF9F6D63FF04D77FF00C6A9
              DD7727965FC9F9FF00987F6E6A3FF42A6B1FF7F6D3FF008FD1FDB9A8FF00D0A9
              AC7FDFDB4FFE3F47FC257A77FCFB6B1FF826BBFF00E3547FC257A77FCFB6B1FF
              00826BBFFE3545D770E597F27E7FE673B7CBADDCE95E2BB54F0C6A41F57DFF00
              67266B5C2EEB58E11BBF7DC7CC84F19E31F4AE8BFB7351FF00A15358FF00BFB6
              9FFC7E8FF84AF4EFF9F6D63FF04D77FF00C6A8FF0084AF4EFF009F6D63FF0004
              D77FFC6A92B2EA54B9E4ACE1F9FF009F907F6E6A3FF42A6B1FF7F6D3FF008FD1
              FDB9A8FF00D0A9AC7FDFDB4FFE3F47FC257A77FCFB6B1FF826BBFF00E3547FC2
              57A77FCFB6B1FF00826BBFFE354EEBB93CB2FE4FCFFCC3FB7351FF00A15358FF
              00BFB69FFC7E8FEDCD47FE854D63FEFEDA7FF1FA3FE12BD3BFE7DB58FF00C135
              DFFF001AA3FE12BD3BFE7DB58FFC135DFF00F1AA2EBB872CBF93F3FF00333B40
              BDD5B4AF0E697A74FE16D55A6B4B48A07649AD0A96540A48CCE38C8AD1FEDCD4
              7FE854D63FEFEDA7FF001FA3FE12BD3BFE7DB58FFC135DFF00F1AA3FE12BD3BF
              E7DB58FF00C135DFFF001AA4ACBA8E4A727770FCFF00CC3FB7351FFA15358FFB
              FB69FF00C7E8FEDCD47FE854D63FEFEDA7FF001FA3FE12BD3BFE7DB58FFC135D
              FF00F1AA3FE12BD3BFE7DB58FF00C135DFFF001AA775DC5CB2FE4FCFFCCE76D9
              75B87FB3377863523F65D5EEEF9F135AF31CBF69DA07EFBEF0F3973DB83C9E33
              D17F6E6A3FF42A6B1FF7F6D3FF008FD1FF00095E9DFF003EDAC7FE09AEFF00F8
              D51FF095E9DFF3EDAC7FE09AEFFF008D52565D4A973C9DDC3F3FF30FEDCD47FE
              854D63FEFEDA7FF1FA3FB7351FFA15358FFBFB69FF00C7E8FF0084AF4EFF009F
              6D63FF0004D77FFC6A8FF84AF4EFF9F6D63FF04D77FF00C6A9DD7727965FC9F9
              FF0099B10C8D2C11C8F13C2CEA18C6E416424743B49191D38247B9A7D3219567
              823990385914300E85180233CAB0041F620114FAA30614514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              4500145145001451450014514500145145001451450014514500145145001451
              450014514500145145001451450014514500145145007FFFD9}
            Proportional = True
          end
          object Label35: TLabel
            Left = 568
            Top = 236
            Width = 216
            Height = 20
            Caption = 'Datos de Obras aceptadas'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clGray
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblDetalle: TLabel
            Left = 13
            Top = 315
            Width = 393
            Height = 13
            Alignment = taCenter
            AutoSize = False
            Caption = 'lblDetalle'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
        end
        object Panel20: TPanel
          Left = -1
          Top = 408
          Width = 1018
          Height = 2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object Panel19: TPanel
          Left = 0
          Top = 56
          Width = 937
          Height = 2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'General'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 1008
        Height = 551
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 13555670
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label5: TLabel
          Left = 368
          Top = 52
          Width = 141
          Height = 13
          Caption = 'Navegador de Im'#225'genes:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label6: TLabel
          Left = 48
          Top = 12
          Width = 30
          Height = 13
          Caption = 'Obra:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Panel31: TPanel
          Left = 64
          Top = 184
          Width = 209
          Height = 41
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object nvgObra: TDBNavigator
            Left = 9
            Top = 8
            Width = 120
            Height = 25
            DataSource = sObra
            VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
            Flat = True
            TabOrder = 0
            BeforeAction = nvgObraBeforeAction
            OnClick = nvgObraClick
          end
          object btnGrabarObra: TBitBtn
            Left = 138
            Top = 8
            Width = 61
            Height = 25
            Caption = 'Grabar'
            Default = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = btnGrabarObraClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 0
          end
        end
        object Panel32: TPanel
          Left = 80
          Top = 28
          Width = 175
          Height = 149
          BevelOuter = bvNone
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object Label2: TLabel
            Left = 16
            Top = 13
            Width = 36
            Height = 13
            Caption = 'Inicio:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnCalPresup: TSpeedButton
            Left = 138
            Top = 7
            Width = 23
            Height = 24
            Hint = 'Calendar'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            Glyph.Data = {
              4E010000424D4E01000000000000760000002800000012000000120000000100
              040000000000D800000000000000000000001000000010000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333330000003333333333333333330000003338888888888888330000003304
              0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
              FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
              F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033F7777777777F4833000000330000000000003333000000333333333333
              333333000000333333333333333333000000}
            Layout = blGlyphRight
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = btnCalPresupClick
          end
          object edtFechaInicio: TDBEdit
            Left = 56
            Top = 8
            Width = 65
            Height = 21
            BevelOuter = bvRaised
            BevelKind = bkFlat
            BorderStyle = bsNone
            DataField = 'INICIO'
            DataSource = sObra
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnEnter = edtFechaInicioEnter
            OnExit = edtFechaInicioExit
          end
          object rdgNivel: TDBRadioGroup
            Left = 16
            Top = 40
            Width = 145
            Height = 89
            Caption = ' Estado '
            DataField = 'ESTADO'
            DataSource = sObra
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Items.Strings = (
              'En ejecuci'#243'n'
              'Suspendida'
              'Terminada')
            ParentFont = False
            TabOrder = 1
            Values.Strings = (
              '2'
              '0'
              '1')
          end
        end
        object Panel8: TPanel
          Left = 368
          Top = 72
          Width = 641
          Height = 481
          BevelInner = bvLowered
          BevelOuter = bvLowered
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          object grdImagenes: TStringGrid
            Left = 2
            Top = 2
            Width = 637
            Height = 477
            Align = alClient
            BorderStyle = bsNone
            Color = 14870761
            DefaultColWidth = 100
            DefaultRowHeight = 100
            DefaultDrawing = False
            FixedCols = 0
            FixedRows = 0
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Options = [goAlwaysShowEditor, goThumbTracking]
            ParentFont = False
            ParentShowHint = False
            ScrollBars = ssNone
            ShowHint = True
            TabOrder = 0
            OnDblClick = grdImagenesDblClick
          end
        end
        object btnNuevaImagen: TBitBtn
          Left = 367
          Top = 24
          Width = 107
          Height = 25
          Caption = 'Nueva Imagen'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = btnNuevaImagenClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
            033333777777777773333330777777703333333773F333773333333330888033
            33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
            FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
            8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
            8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
            8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
            8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
            FF037FFFFFFFFFFFFF7F00000000000000037777777777777773}
          NumGlyphs = 2
        end
        object btnSig: TBitBtn
          Left = 487
          Top = 24
          Width = 98
          Height = 25
          Caption = 'Siguientes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = btnSigClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
            333333333333337FF3333333333333903333333333333377FF33333333333399
            03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
            99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
            99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
            03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
            33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
            33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
            3333777777333333333333333333333333333333333333333333}
          NumGlyphs = 2
        end
        object btnAnt: TBitBtn
          Left = 592
          Top = 24
          Width = 97
          Height = 25
          Caption = 'Iniciar'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnClick = btnAntClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333FF3333333333333003333333333333F77F33333333333009033
            333333333F7737F333333333009990333333333F773337FFFFFF330099999000
            00003F773333377777770099999999999990773FF33333FFFFF7330099999000
            000033773FF33777777733330099903333333333773FF7F33333333333009033
            33333333337737F3333333333333003333333333333377333333333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
        end
        object Panel29: TPanel
          Left = 8
          Top = 392
          Width = 353
          Height = 145
          BevelOuter = bvNone
          Color = clWindow
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          object Label48: TLabel
            Left = 151
            Top = 4
            Width = 50
            Height = 13
            Caption = 'Entradas'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label50: TLabel
            Left = 7
            Top = 28
            Width = 136
            Height = 13
            Caption = 'Total Cobrado a Inversores:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object lblTotCobrado: TLabel
            Left = 183
            Top = 28
            Width = 18
            Height = 11
            Alignment = taRightJustify
            Caption = '0.00'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -9
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label49: TLabel
            Left = 236
            Top = 4
            Width = 40
            Height = 13
            Caption = 'Salidas'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label56: TLabel
            Left = 310
            Top = 4
            Width = 31
            Height = 13
            Caption = 'Saldo'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblTotalCompra: TLabel
            Left = 258
            Top = 52
            Width = 18
            Height = 11
            Alignment = taRightJustify
            Caption = '0.00'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -9
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object lblTotSubcont: TLabel
            Left = 258
            Top = 68
            Width = 18
            Height = 11
            Alignment = taRightJustify
            Caption = '0.00'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -9
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object lblTotOperario: TLabel
            Left = 258
            Top = 84
            Width = 18
            Height = 11
            Alignment = taRightJustify
            Caption = '0.00'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -9
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object lblTotIndi: TLabel
            Left = 258
            Top = 100
            Width = 18
            Height = 11
            Alignment = taRightJustify
            Caption = '0.00'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -9
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object lblTotalSalida: TLabel
            Left = 258
            Top = 124
            Width = 18
            Height = 10
            Alignment = taRightJustify
            Caption = '0.00'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -8
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblSaldo: TLabel
            Left = 323
            Top = 124
            Width = 18
            Height = 10
            Alignment = taRightJustify
            Caption = '0.00'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -8
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblTotalEntrada: TLabel
            Left = 183
            Top = 124
            Width = 18
            Height = 10
            Alignment = taRightJustify
            Caption = '0.00'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -8
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label55: TLabel
            Left = 82
            Top = 124
            Width = 45
            Height = 13
            Caption = 'Totales:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label54: TLabel
            Left = 55
            Top = 100
            Width = 88
            Height = 13
            Caption = 'Costos Indirectos:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label53: TLabel
            Left = 51
            Top = 84
            Width = 92
            Height = 13
            Caption = 'Pagos a Operarios:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label52: TLabel
            Left = 23
            Top = 68
            Width = 120
            Height = 13
            Caption = 'Pagos a Subcontratistas:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label51: TLabel
            Left = 35
            Top = 52
            Width = 108
            Height = 13
            Caption = 'Compra de Materiales:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Certificaciones'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 1008
        Height = 551
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 13555670
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label7: TLabel
          Left = 400
          Top = 98
          Width = 31
          Height = 13
          Caption = 'Item:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText3: TDBText
          Left = 400
          Top = 114
          Width = 401
          Height = 49
          DataField = 'item'
          DataSource = sItemPre
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
        object btnCambiar: TSpeedButton
          Left = 400
          Top = 193
          Width = 23
          Height = 22
          Hint = 'Cambiar tipo de gr'#225'fico'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            96010000424D9601000000000000760000002800000018000000180000000100
            0400000000002001000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            8F8F8F8F8F8F8F8F8FFFFFF000000000000000000FFFFF80FFFFFFFFFFFFFFFF
            FFFFFFF0FFFFFFFFFF9FFFFFFFFFFF80FFFFFFFFFF99FFFFFFFFFFF0FFFFFFFF
            F9F9FFFFFFFFFF80FFFFFFFFF9FF9FFFCFFFFFF0CFF9FFFF9FFF9FFCFFFFFF80
            FC9F9FFF9FFFF9FCFFFFFFF0F9CFF9FF9FFFFFCFFFFFFF80F9FCFF99FFFFFFCF
            FFFFFFF09FFFCFF9FFCCCCF9FFFFFF80FFFFFCFFFCFFFFF9FFFFFFF0FFFFFFCF
            FCFFFFFF9FFFFF80FFFFFFFCCFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFFF80
            FFFFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = btnCambiarClick
        end
        object SpeedButton1: TSpeedButton
          Left = 424
          Top = 193
          Width = 23
          Height = 22
          Hint = 'Imprimir gr'#225'fico'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            0003377777777777777308888888888888807F33333333333337088888888888
            88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
            8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
            8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton1Click
        end
        object SpeedButton6: TSpeedButton
          Left = 448
          Top = 192
          Width = 23
          Height = 22
          Hint = 'Abrir Planilla de Certificaciones'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
            FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
            FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
            FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
            FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
            FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
            C8807FF7777777777FF700000000000000007777777777777777333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton6Click
        end
        object Panel5: TPanel
          Left = 580
          Top = 18
          Width = 225
          Height = 41
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object nvgCertificacion: TDBNavigator
            Left = 9
            Top = 8
            Width = 136
            Height = 25
            DataSource = sCertificacion
            VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
            Flat = True
            TabOrder = 0
            OnClick = nvgCertificacionClick
          end
          object btnGrabarCertificacion: TBitBtn
            Left = 154
            Top = 8
            Width = 61
            Height = 25
            Caption = 'Grabar'
            Default = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = btnGrabarCertificacionClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 0
          end
        end
        object DBChart1: TDBChart
          Left = 400
          Top = 226
          Width = 601
          Height = 319
          AllowPanning = pmNone
          AnimatedZoomSteps = 5
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          BottomWall.Brush.Color = clWhite
          Foot.AdjustFrame = False
          Foot.Visible = False
          Gradient.Direction = gdLeftRight
          Gradient.EndColor = 12176073
          Gradient.Visible = True
          LeftWall.Brush.Color = clWhite
          LeftWall.Brush.Style = bsClear
          LeftWall.Color = 8421631
          MarginBottom = 5
          MarginLeft = 0
          MarginRight = 5
          MarginTop = 5
          PrintProportional = False
          Title.AdjustFrame = False
          Title.Brush.Color = clWhite
          Title.Text.Strings = (
            'TDBChart')
          Title.Visible = False
          BottomAxis.Axis.Color = 4194368
          BottomAxis.Axis.Width = 1
          BottomAxis.Axis.Visible = False
          BottomAxis.DateTimeFormat = 'hh:mm AMPM'
          BottomAxis.ExactDateTime = False
          BottomAxis.Grid.Style = psSolid
          BottomAxis.Increment = 0.0416666666666667
          BottomAxis.LabelsFont.Charset = ANSI_CHARSET
          BottomAxis.LabelsFont.Color = clBlack
          BottomAxis.LabelsFont.Height = -9
          BottomAxis.LabelsFont.Name = 'Small Fonts'
          BottomAxis.LabelsFont.Style = []
          BottomAxis.LabelStyle = talText
          BottomAxis.MinorGrid.Visible = True
          BottomAxis.MinorTickCount = 0
          BottomAxis.MinorTickLength = 0
          BottomAxis.StartPosition = 8
          BottomAxis.EndPosition = 92
          BottomAxis.RoundFirstLabel = False
          BottomAxis.TickLength = 0
          Chart3DPercent = 10
          ClipPoints = False
          DepthAxis.Automatic = False
          DepthAxis.AutomaticMaximum = False
          DepthAxis.AutomaticMinimum = False
          DepthAxis.Grid.Visible = False
          DepthAxis.MinorTicks.Visible = False
          DepthAxis.Ticks.Visible = False
          DepthAxis.TicksInner.Visible = False
          LeftAxis.Automatic = False
          LeftAxis.AutomaticMaximum = False
          LeftAxis.AutomaticMinimum = False
          LeftAxis.Axis.Color = clGray
          LeftAxis.Axis.Width = 4
          LeftAxis.Grid.Style = psSolid
          LeftAxis.Grid.Visible = False
          LeftAxis.LabelsMultiLine = True
          LeftAxis.LabelsSeparation = 30
          LeftAxis.Maximum = 100
          LeftAxis.MinorTicks.Visible = False
          LeftAxis.StartPosition = 6
          LeftAxis.EndPosition = 96
          LeftAxis.TickLength = 0
          Legend.Alignment = laLeft
          Legend.ColorWidth = 0
          Legend.DividingLines.Style = psDot
          Legend.DividingLines.Width = 2
          Legend.Frame.Visible = False
          Legend.TextStyle = ltsPlain
          Legend.Visible = False
          MaxPointsPerPage = 10
          RightAxis.Automatic = False
          RightAxis.AutomaticMaximum = False
          RightAxis.AutomaticMinimum = False
          RightAxis.Visible = False
          TopAxis.Automatic = False
          TopAxis.AutomaticMaximum = False
          TopAxis.AutomaticMinimum = False
          TopAxis.LabelsAngle = 45
          TopAxis.LabelStyle = talValue
          TopAxis.StartPosition = 6
          TopAxis.EndPosition = 96
          TopAxis.Visible = False
          View3DOptions.Elevation = 336
          View3DOptions.HorizOffset = -1
          View3DOptions.Perspective = 35
          View3DOptions.Rotation = 348
          BevelOuter = bvNone
          BevelWidth = 5
          BorderWidth = 5
          Color = clSilver
          TabOrder = 1
          object Series1: TAreaSeries
            Cursor = crHourGlass
            Marks.ArrowLength = 8
            Marks.Style = smsValue
            Marks.Visible = True
            DataSource = Datos.cCertificacion
            SeriesColor = 7174863
            XLabelsSource = 'fecha2'
            AreaBrush = bsHorizontal
            DrawArea = True
            LinePen.Width = 2
            Pointer.Brush.Color = clYellow
            Pointer.HorizSize = 3
            Pointer.InflateMargins = True
            Pointer.Style = psCircle
            Pointer.VertSize = 3
            Pointer.Visible = False
            XValues.DateTime = True
            XValues.Name = 'X'
            XValues.Multiplier = 1
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1
            YValues.Order = loNone
            YValues.ValueSource = 'AVANCE'
          end
          object Series2: TLineSeries
            Active = False
            Cursor = crHourGlass
            Marks.ArrowLength = 8
            Marks.Style = smsValue
            Marks.Visible = True
            DataSource = Datos.cCertificacion
            SeriesColor = clRed
            XLabelsSource = 'fecha2'
            Dark3D = False
            LinePen.Color = clRed
            LinePen.Width = 2
            Pointer.Brush.Color = clYellow
            Pointer.HorizSize = 3
            Pointer.InflateMargins = True
            Pointer.Style = psCircle
            Pointer.VertSize = 3
            Pointer.Visible = True
            XValues.DateTime = True
            XValues.Name = 'X'
            XValues.Multiplier = 1
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1
            YValues.Order = loNone
            YValues.ValueSource = 'AVANCE'
          end
          object Series3: TBarSeries
            Active = False
            Cursor = crHourGlass
            Marks.ArrowLength = 8
            Marks.Style = smsValue
            Marks.Visible = True
            DataSource = Datos.cCertificacion
            SeriesColor = 13478512
            XLabelsSource = 'fecha2'
            BarStyle = bsRectGradient
            XValues.DateTime = True
            XValues.Name = 'X'
            XValues.Multiplier = 1
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Bar'
            YValues.Multiplier = 1
            YValues.Order = loNone
            YValues.ValueSource = 'AVANCE'
          end
        end
        object grdCertificacion: TDBGrid
          Left = 820
          Top = 18
          Width = 177
          Height = 191
          DataSource = sCertificacion
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEditButtonClick = grdCertificacionEditButtonClick
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Alignment = taCenter
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'FECHA'
              Title.Alignment = taCenter
              Title.Caption = 'Fecha'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 69
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'AVANCE'
              Title.Alignment = taCenter
              Title.Caption = 'Avance'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 68
              Visible = True
            end>
        end
        object grdItemPre: TDBGrid
          Left = 8
          Top = 18
          Width = 377
          Height = 479
          BorderStyle = bsNone
          Color = 15395562
          Ctl3D = True
          DataSource = sItemPre
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'CANTIDAD'
              Title.Alignment = taCenter
              Title.Caption = 'Cantidad'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 66
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'item'
              Title.Alignment = taCenter
              Title.Caption = 'Item'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 201
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'sigla'
              Title.Alignment = taCenter
              Title.Caption = 'Unidad'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Visible = True
            end>
        end
        object Panel37: TPanel
          Left = 64
          Top = 504
          Width = 321
          Height = 37
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          object Label64: TLabel
            Left = 8
            Top = 15
            Width = 33
            Height = 13
            Caption = 'Filtrar'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnDesfiltrarItemCertif: TSpeedButton
            Left = 287
            Top = 7
            Width = 26
            Height = 25
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
              3333333777333777FF3333993333339993333377FF3333377FF3399993333339
              993337777FF3333377F3393999333333993337F777FF333337FF993399933333
              399377F3777FF333377F993339993333399377F33777FF33377F993333999333
              399377F333777FF3377F993333399933399377F3333777FF377F993333339993
              399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
              99333773FF3333777733339993333339933333773FFFFFF77333333999999999
              3333333777333777333333333999993333333333377777333333}
            NumGlyphs = 2
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = btnDesfiltrarItemCertifClick
          end
          object edtFiltroItem: TEdit
            Left = 54
            Top = 6
            Width = 227
            Height = 25
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            CharCase = ecUpperCase
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnChange = edtFiltroItemChange
          end
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Compra de Material'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 3
      ParentFont = False
      object Splitter2: TSplitter
        Left = 401
        Top = 0
        Width = 3
        Height = 551
        Cursor = crHSplit
        Color = 10791869
        ParentColor = False
      end
      object Panel6: TPanel
        Left = 404
        Top = 0
        Width = 604
        Height = 551
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 13555670
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          604
          551)
        object Label8: TLabel
          Left = 8
          Top = 4
          Width = 54
          Height = 11
          Caption = 'Factura N'#186
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label9: TLabel
          Left = 93
          Top = 4
          Width = 30
          Height = 11
          Caption = 'Letra:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label10: TLabel
          Left = 144
          Top = 4
          Width = 56
          Height = 11
          Caption = 'Proveedor:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label11: TLabel
          Left = 8
          Top = 36
          Width = 32
          Height = 11
          Caption = 'Fecha:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object btnFechaCompra: TSpeedButton
          Left = 93
          Top = 46
          Width = 23
          Height = 24
          Hint = 'Calendar'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          Glyph.Data = {
            4E010000424D4E01000000000000760000002800000012000000120000000100
            040000000000D800000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333330000003333333333333333330000003338888888888888330000003304
            0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
            000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
            FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
            F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
            000033F7777777777F4833000000330000000000003333000000333333333333
            333333000000333333333333333333000000}
          Layout = blGlyphRight
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = btnFechaCompraClick
        end
        object txtSubtotal: TDBText
          Left = 497
          Top = 426
          Width = 44
          Height = 11
          Alignment = taRightJustify
          AutoSize = True
          DataField = 'TOTAL'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label15: TLabel
          Left = 372
          Top = 426
          Width = 44
          Height = 11
          Caption = 'Subtotal:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label16: TLabel
          Left = 393
          Top = 464
          Width = 23
          Height = 11
          Caption = 'IVA:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label17: TLabel
          Left = 362
          Top = 440
          Width = 54
          Height = 11
          Caption = 'Descuento:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label18: TLabel
          Left = 387
          Top = 495
          Width = 29
          Height = 11
          Caption = 'Total:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object txtCalcIva: TDBText
          Left = 498
          Top = 464
          Width = 43
          Height = 11
          Alignment = taRightJustify
          AutoSize = True
          DataField = 'calcIva'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object txtSub1: TDBText
          Left = 510
          Top = 451
          Width = 31
          Height = 11
          Alignment = taRightJustify
          AutoSize = True
          DataField = 'sub1'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object txtCalcDesc: TDBText
          Left = 493
          Top = 438
          Width = 48
          Height = 11
          Alignment = taRightJustify
          AutoSize = True
          DataField = 'calcDesc'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object txtTotal: TDBText
          Left = 510
          Top = 495
          Width = 31
          Height = 11
          Alignment = taRightJustify
          AutoSize = True
          DataField = 'totalGeneral'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object lblRubro: TLabel
          Left = 64
          Top = 430
          Width = 113
          Height = 33
          Anchors = [akLeft, akBottom]
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object lblFechaPrecio: TLabel
          Left = 64
          Top = 472
          Width = 3
          Height = 11
          Anchors = [akLeft, akBottom]
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label45: TLabel
          Left = 16
          Top = 462
          Width = 35
          Height = 22
          Caption = 'Fecha Precio:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
        object Label46: TLabel
          Left = 16
          Top = 429
          Width = 33
          Height = 11
          Caption = 'Rubro:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
        object Label59: TLabel
          Left = 144
          Top = 36
          Width = 33
          Height = 11
          Caption = 'Grupo:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label61: TLabel
          Left = 394
          Top = 481
          Width = 22
          Height = 11
          Caption = 'PIB:'
          FocusControl = pagObra
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label65: TLabel
          Left = 504
          Top = 4
          Width = 88
          Height = 11
          Caption = 'Orden de Compra'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object SpeedButton7: TSpeedButton
          Left = 504
          Top = 45
          Width = 84
          Height = 22
          Hint = 'Comparar Orden de Compra con Facturas...'
          Anchors = [akTop, akRight]
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
            00007777777777777777933393303933337073F37F37F73F3377393393303393
            379037FF7F37F37FF777379793303379793037777337F3777737339933303339
            93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
            999037777337F377777793993330333393307377FF37F3337FF7333993303333
            993033377F37F33377F7333993303333993033377337F3337737333333303333
            33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
            03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton7Click
        end
        object cmbProveedor: TDBLookupComboBox
          Left = 144
          Top = 15
          Width = 352
          Height = 19
          Anchors = [akLeft, akTop, akRight]
          BevelEdges = []
          BevelOuter = bvRaised
          BevelKind = bkFlat
          Ctl3D = False
          DataField = 'proveedor'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
        end
        object edtNumero: TDBEdit
          Left = 8
          Top = 15
          Width = 79
          Height = 19
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'NUMERO'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
        end
        object edtLetra: TDBEdit
          Left = 93
          Top = 15
          Width = 35
          Height = 19
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          DataField = 'LETRA'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
          OnKeyPress = edtLetraKeyPress
        end
        object edtFechaCompra: TDBEdit
          Left = 8
          Top = 48
          Width = 81
          Height = 19
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'FECHA'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
        end
        object grdRenglonCompra: TDBGrid
          Left = 8
          Top = 71
          Width = 585
          Height = 346
          Anchors = [akLeft, akTop, akRight]
          DataSource = sRenglonCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          PopupMenu = pop
          TabOrder = 6
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clNavy
          TitleFont.Height = -9
          TitleFont.Name = 'MS Serif'
          TitleFont.Style = [fsBold]
          OnDrawColumnCell = grdRenglonCompraDrawColumnCell
          OnEnter = grdRenglonCompraEnter
          OnExit = edtNumeroExit
          Columns = <
            item
              Expanded = False
              FieldName = 'CANTIDAD'
              Title.Alignment = taCenter
              Title.Caption = 'Cantidad'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -12
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 79
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MATERIAL'
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = 'Material'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -12
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 270
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UNITARIO'
              Title.Alignment = taCenter
              Title.Caption = 'P.Unit.'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -12
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 68
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'subtotal'
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = 'Subt.'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -12
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 110
              Visible = True
            end>
        end
        object Panel10: TPanel
          Left = 2
          Top = 511
          Width = 600
          Height = 38
          Align = alBottom
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
          DesignSize = (
            600
            38)
          object nvgCompra: TDBNavigator
            Left = 277
            Top = 7
            Width = 220
            Height = 25
            DataSource = sCompra
            VisibleButtons = [nbPrior, nbNext, nbDelete, nbPost, nbCancel]
            Anchors = [akTop, akRight]
            Flat = True
            TabOrder = 0
            BeforeAction = nvgCompraBeforeAction
            OnClick = nvgCompraClick
          end
          object btnGrabarCompra: TBitBtn
            Left = 512
            Top = 7
            Width = 79
            Height = 25
            Anchors = [akTop, akRight]
            Caption = 'Grabar'
            Default = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = btnGrabarCompraClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 0
          end
          object BitBtn1: TBitBtn
            Left = 8
            Top = 7
            Width = 63
            Height = 25
            Caption = 'Nueva'
            Default = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnClick = BitBtn1Click
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
              555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
              05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
              FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
              FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
              FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
              05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
              555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
              9055575757575757775505050505055505557575757575557555}
            NumGlyphs = 2
            Spacing = 0
          end
        end
        object DBEdit1: TDBEdit
          Left = 433
          Top = 461
          Width = 35
          Height = 17
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'IVA'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
        end
        object DBEdit2: TDBEdit
          Left = 433
          Top = 434
          Width = 35
          Height = 17
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'DESCUENTO'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
        end
        object cmbItem: TDBLookupComboBox
          Left = 144
          Top = 48
          Width = 352
          Height = 19
          Anchors = [akLeft, akTop, akRight]
          BevelEdges = []
          BevelOuter = bvRaised
          BevelKind = bkFlat
          Ctl3D = False
          DataField = 'grupo'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
        end
        object DBEdit3: TDBEdit
          Left = 490
          Top = 477
          Width = 50
          Height = 17
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'PIB'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
        end
        object DBEdit4: TDBEdit
          Left = 504
          Top = 16
          Width = 86
          Height = 19
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'NUMERO_OC'
          DataSource = sCompra
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnEnter = edtNumeroEnter
          OnExit = edtNumeroExit
        end
      end
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 401
        Height = 551
        Align = alLeft
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 10791869
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Splitter1: TSplitter
          Left = 2
          Top = 64
          Width = 397
          Height = 4
          Cursor = crVSplit
          Align = alTop
        end
        object Splitter3: TSplitter
          Left = 2
          Top = 222
          Width = 397
          Height = 2
          Cursor = crVSplit
          Align = alTop
        end
        object grdRubFact: TDBGrid
          Left = 2
          Top = 2
          Width = 397
          Height = 62
          Align = alTop
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sRubFact
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -9
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          OnEnter = grdRubFactEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'RUBRO'
              Title.Alignment = taCenter
              Title.Caption = 'Rubros'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 297
              Visible = True
            end>
        end
        object grdMatFact: TDBGrid
          Left = 2
          Top = 68
          Width = 397
          Height = 117
          Align = alTop
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sMatFact
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -9
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          OnDblClick = grdMatFactDblClick
          OnEnter = grdMatFactEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'MATERIAL'
              Font.Charset = OEM_CHARSET
              Font.Color = clWindowText
              Font.Height = -8
              Font.Name = 'Terminal'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = 'Material'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 300
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SIGLA'
              Title.Alignment = taCenter
              Title.Caption = 'Unidad'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 57
              Visible = True
            end>
        end
        object Panel71: TPanel
          Left = 2
          Top = 185
          Width = 397
          Height = 37
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          DesignSize = (
            397
            37)
          object Label12: TLabel
            Left = 8
            Top = 15
            Width = 37
            Height = 13
            Caption = 'Filtrar:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object edtFiltro: TEdit
            Left = 54
            Top = 6
            Width = 303
            Height = 25
            Anchors = [akLeft, akTop, akRight]
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            CharCase = ecUpperCase
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnChange = edtFiltroChange
          end
          object btnDesfiltrar: TBitBtn
            Left = 360
            Top = 7
            Width = 26
            Height = 25
            Hint = 'Desfiltrar'
            Anchors = [akTop, akRight]
            Cancel = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnClick = btnDesfiltrarClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333FFFFF333333000033333388888833333333333F888888FFF333
              000033338811111188333333338833FFF388FF33000033381119999111833333
              38F338888F338FF30000339119933331111833338F388333383338F300003391
              13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
              33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
              33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
              000039183811193333918338F8F833F83333838F000039118111933339118338
              F3833F83333833830000339111193333391833338F33F8333FF838F300003391
              11833338111833338F338FFFF883F83300003339111888811183333338FF3888
              83FF83330000333399111111993333333388FFFFFF8833330000333333999999
              3333333333338888883333330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 2
          end
        end
        object grdBusqueda: TDBGrid
          Left = 2
          Top = 224
          Width = 397
          Height = 288
          Align = alClient
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sBusqueda
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -9
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          OnDblClick = grdMatFactDblClick
          OnEnter = grdBusquedaEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'MATERIAL'
              Title.Alignment = taCenter
              Title.Caption = 'Material'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 238
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RUBRO'
              Title.Alignment = taCenter
              Title.Caption = 'Rubro'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 113
              Visible = True
            end>
        end
        object Panel30: TPanel
          Left = 2
          Top = 512
          Width = 397
          Height = 37
          Align = alBottom
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          DesignSize = (
            397
            37)
          object Label58: TLabel
            Left = 8
            Top = 15
            Width = 33
            Height = 13
            Caption = 'Filtrar'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnBorrarBuscar: TSpeedButton
            Left = 359
            Top = 7
            Width = 26
            Height = 25
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
              3333333777333777FF3333993333339993333377FF3333377FF3399993333339
              993337777FF3333377F3393999333333993337F777FF333337FF993399933333
              399377F3777FF333377F993339993333399377F33777FF33377F993333999333
              399377F333777FF3377F993333399933399377F3333777FF377F993333339993
              399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
              99333773FF3333777733339993333339933333773FFFFFF77333333999999999
              3333333777333777333333333999993333333333377777333333}
            NumGlyphs = 2
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = btnBorrarBuscarClick
          end
          object edtBuscar: TEdit
            Left = 54
            Top = 6
            Width = 275
            Height = 25
            Anchors = [akLeft, akTop, akRight]
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            CharCase = ecUpperCase
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnChange = edtBuscarChange
            OnKeyPress = edtBuscarKeyPress
          end
          object btnBuscar: TBitBtn
            Left = 331
            Top = 7
            Width = 26
            Height = 25
            Hint = 'Buscar'
            Anchors = [akTop, akRight]
            Cancel = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnClick = btnBuscarClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
              333333333337FF3333333333330003333333333333777F333333333333080333
              3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
              33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
              B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
              BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
              B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
              3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
              333333333337F33333333333333B333333333333333733333333}
            NumGlyphs = 2
            Spacing = 2
          end
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Pagos a Subcontratistas'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 4
      ParentFont = False
      object Panel11: TPanel
        Left = 0
        Top = 0
        Width = 473
        Height = 551
        Align = alLeft
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 13555670
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          473
          551)
        object Label21: TLabel
          Left = 226
          Top = 48
          Width = 93
          Height = 13
          Caption = 'Subcontratistas:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label22: TLabel
          Left = 18
          Top = 48
          Width = 124
          Height = 13
          Caption = 'Pagos para esta Obra:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText4: TDBText
          Left = 376
          Top = 284
          Width = 71
          Height = 13
          Alignment = taRightJustify
          DataField = 'subtotal'
          DataSource = sPagoSub
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label23: TLabel
          Left = 338
          Top = 284
          Width = 34
          Height = 13
          Caption = 'Total:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label63: TLabel
          Left = 5
          Top = 531
          Width = 37
          Height = 13
          Caption = 'Filtrar:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label67: TLabel
          Left = 194
          Top = 284
          Width = 55
          Height = 13
          Caption = 'En Mano:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText14: TDBText
          Left = 256
          Top = 284
          Width = 71
          Height = 13
          Alignment = taRightJustify
          DataField = 'mano'
          DataSource = sPagoSub
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Panel12: TPanel
          Left = 16
          Top = 7
          Width = 441
          Height = 41
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object nvgPagoSub: TDBNavigator
            Left = 9
            Top = 8
            Width = 256
            Height = 25
            DataSource = sPagoSub
            VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
            Flat = True
            TabOrder = 0
            OnClick = nvgPagoSubClick
          end
          object btnGrabarPagoSub: TBitBtn
            Left = 274
            Top = 8
            Width = 61
            Height = 25
            Caption = 'Grabar'
            Default = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = btnGrabarPagoSubClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 0
          end
        end
        object grdSubcontratistas: TDBGrid
          Left = 16
          Top = 310
          Width = 441
          Height = 179
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sProv1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'RAZON'
              Title.Alignment = taCenter
              Title.Caption = 'Raz'#243'n Social'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 254
              Visible = True
            end>
        end
        object grdPagoSub: TDBGrid
          Left = 16
          Top = 64
          Width = 441
          Height = 209
          DataSource = sPagoSub
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEditButtonClick = grdPagoSubEditButtonClick
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Alignment = taCenter
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'FECHA'
              Title.Alignment = taCenter
              Title.Caption = 'Fecha'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 76
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ENMANO'
              Title.Alignment = taCenter
              Title.Caption = 'Neto'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CARGASOCIAL'
              Title.Alignment = taCenter
              Title.Caption = 'C. Social'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 72
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'suma'
              Title.Alignment = taCenter
              Title.Caption = 'Subtotal'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 86
              Visible = True
            end>
        end
        object edtFiltroSub: TEdit
          Left = 51
          Top = 524
          Width = 350
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnChange = edtFiltroSubChange
        end
        object btnDesfiltrarSub: TBitBtn
          Left = 407
          Top = 524
          Width = 26
          Height = 25
          Hint = 'Desfiltrar'
          Anchors = [akTop, akRight]
          Cancel = True
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = btnDesfiltrarSubClick
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333FFFFF333333000033333388888833333333333F888888FFF333
            000033338811111188333333338833FFF388FF33000033381119999111833333
            38F338888F338FF30000339119933331111833338F388333383338F300003391
            13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
            33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
            33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
            000039183811193333918338F8F833F83333838F000039118111933339118338
            F3833F83333833830000339111193333391833338F33F8333FF838F300003391
            11833338111833338F338FFFF883F83300003339111888811183333338FF3888
            83FF83330000333399111111993333333388FFFFFF8833330000333333999999
            3333333333338888883333330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
          Spacing = 2
        end
      end
      object Panel15: TPanel
        Left = 473
        Top = 0
        Width = 535
        Height = 551
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 10791869
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object btnImprimirReciboSub: TSpeedButton
          Left = 328
          Top = 509
          Width = 82
          Height = 36
          Hint = 'Imprimir recibo con registros seleccionados'
          Caption = 'Imprimir Recibo'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            0003377777777777777308888888888888807F33333333333337088888888888
            88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
            8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
            8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          Layout = blGlyphTop
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = btnImprimirReciboSubClick
        end
        object lbl: TLabel
          Left = 18
          Top = 16
          Width = 105
          Height = 13
          Caption = 'Pagos realizados a'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText5: TDBText
          Left = 348
          Top = 491
          Width = 61
          Height = 17
          Alignment = taRightJustify
          DataField = 'subtotal'
          DataSource = sPagosSubs
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 292
          Top = 491
          Width = 52
          Height = 13
          Caption = 'Subtotal:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object grdPagosSubGral: TDBGrid
          Left = 16
          Top = 32
          Width = 505
          Height = 449
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sPagosSubs
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          OnTitleClick = grdPagosSubGralTitleClick
          Columns = <
            item
              Expanded = False
              FieldName = 'DENOMINACION'
              Title.Alignment = taCenter
              Title.Caption = 'Denominaci'#243'n Obra'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 206
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FECHA'
              Title.Alignment = taCenter
              Title.Caption = 'Fecha'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 58
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ENMANO'
              Title.Alignment = taCenter
              Title.Caption = 'Neto en Mano'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 74
              Visible = True
            end>
        end
      end
      object Panel16: TPanel
        Left = 441
        Top = 494
        Width = 185
        Height = 56
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object Label25: TLabel
          Left = 6
          Top = 12
          Width = 38
          Height = 13
          Caption = 'Desde:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label26: TLabel
          Left = 8
          Top = 36
          Width = 36
          Height = 13
          Caption = 'Hasta:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object btnCalIni: TSpeedButton
          Left = 119
          Top = 5
          Width = 23
          Height = 24
          Hint = 'Calendar'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          Glyph.Data = {
            4E010000424D4E01000000000000760000002800000012000000120000000100
            040000000000D800000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333330000003333333333333333330000003338888888888888330000003304
            0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
            000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
            FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
            F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
            000033F7777777777F4833000000330000000000003333000000333333333333
            333333000000333333333333333333000000}
          Layout = blGlyphRight
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = btnCalIniClick
        end
        object btnCalFin: TSpeedButton
          Left = 119
          Top = 29
          Width = 23
          Height = 24
          Hint = 'Calendar'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          Glyph.Data = {
            4E010000424D4E01000000000000760000002800000012000000120000000100
            040000000000D800000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333330000003333333333333333330000003338888888888888330000003304
            0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
            000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
            FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
            F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
            000033F7777777777F4833000000330000000000003333000000333333333333
            333333000000333333333333333333000000}
          Layout = blGlyphRight
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = btnCalFinClick
        end
        object btnFiltrado: TSpeedButton
          Left = 151
          Top = 19
          Width = 23
          Height = 22
          Hint = 'Desfiltrar'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
            3333333777333777FF3333993333339993333377FF3333377FF3399993333339
            993337777FF3333377F3393999333333993337F777FF333337FF993399933333
            399377F3777FF333377F993339993333399377F33777FF33377F993333999333
            399377F333777FF3377F993333399933399377F3333777FF377F993333339993
            399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
            99333773FF3333777733339993333339933333773FFFFFF77333333999999999
            3333333777333777333333333999993333333333377777333333}
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = btnFiltradoClick
        end
        object lblFechaIni: TLabel
          Left = 49
          Top = 11
          Width = 64
          Height = 17
          Alignment = taCenter
          AutoSize = False
          Color = cl3DLight
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object lblFechaFin: TLabel
          Left = 49
          Top = 35
          Width = 64
          Height = 17
          Alignment = taCenter
          AutoSize = False
          Color = cl3DLight
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'Pagos a Operarios'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 5
      ParentFont = False
      object Panel13: TPanel
        Left = 0
        Top = 0
        Width = 497
        Height = 551
        Align = alLeft
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 13555670
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          497
          551)
        object Label27: TLabel
          Left = 10
          Top = 308
          Width = 58
          Height = 13
          Caption = 'Operarios:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label28: TLabel
          Left = 10
          Top = 48
          Width = 124
          Height = 13
          Caption = 'Pagos para esta Obra:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText6: TDBText
          Left = 376
          Top = 290
          Width = 71
          Height = 13
          Alignment = taRightJustify
          DataField = 'subtotal'
          DataSource = sPagoOpe
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label29: TLabel
          Left = 314
          Top = 290
          Width = 30
          Height = 13
          Caption = 'Total'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label62: TLabel
          Left = 5
          Top = 531
          Width = 37
          Height = 13
          Caption = 'Filtrar:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label68: TLabel
          Left = 170
          Top = 290
          Width = 54
          Height = 13
          Caption = 'En mano:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText15: TDBText
          Left = 232
          Top = 290
          Width = 71
          Height = 13
          Alignment = taRightJustify
          DataField = 'cobrado'
          DataSource = sPagoOpe
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Panel14: TPanel
          Left = 10
          Top = 6
          Width = 320
          Height = 41
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object nvgPagoOpe: TDBNavigator
            Left = 9
            Top = 8
            Width = 232
            Height = 25
            DataSource = sPagoOpe
            VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
            Flat = True
            TabOrder = 0
            OnClick = nvgPagoOpeClick
          end
          object btnGrabarPagoOpe: TBitBtn
            Left = 250
            Top = 8
            Width = 61
            Height = 25
            Caption = 'Grabar'
            Default = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = btnGrabarPagoOpeClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 0
          end
        end
        object grdOperarios: TDBGrid
          Left = 10
          Top = 328
          Width = 479
          Height = 177
          Anchors = [akLeft, akTop, akRight]
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sOpe1
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'APENOM'
              Title.Alignment = taCenter
              Title.Caption = 'Apellido y Nombre'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 173
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RESPONSABILIDAD'
              Title.Alignment = taCenter
              Title.Caption = 'Categor'#237'a'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 108
              Visible = True
            end>
        end
        object grdPagosOper: TDBGrid
          Left = 10
          Top = 64
          Width = 479
          Height = 217
          Anchors = [akLeft, akTop, akRight]
          DataSource = sPagoOpe
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEditButtonClick = grdPagosOperEditButtonClick
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'responsabilidad'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -9
              Font.Name = 'Tahoma'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = 'Responsabilidad'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 118
              Visible = True
            end
            item
              Alignment = taCenter
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'FECHA'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -9
              Font.Name = 'Tahoma'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = 'Fecha'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 62
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CANTIDAD'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -9
              Font.Name = 'Tahoma'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = 'Cantid.'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 53
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'porHora'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -9
              Font.Name = 'Tahoma'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '$ Hora'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 56
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CARGASOCIAL'
              Title.Alignment = taCenter
              Title.Caption = 'C.Social'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ADICIONAL'
              Title.Alignment = taCenter
              Title.Caption = 'Adicional'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'montoTotal'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -9
              Font.Name = 'Tahoma'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = 'Total'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 53
              Visible = True
            end>
        end
        object edtFiltroOperario: TEdit
          Left = 51
          Top = 524
          Width = 391
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnChange = edtFiltroOperarioChange
        end
        object btnDesfiltrarOperario: TBitBtn
          Left = 455
          Top = 524
          Width = 26
          Height = 25
          Hint = 'Desfiltrar'
          Anchors = [akTop, akRight]
          Cancel = True
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = btnDesfiltrarOperarioClick
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333FFFFF333333000033333388888833333333333F888888FFF333
            000033338811111188333333338833FFF388FF33000033381119999111833333
            38F338888F338FF30000339119933331111833338F388333383338F300003391
            13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
            33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
            33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
            000039183811193333918338F8F833F83333838F000039118111933339118338
            F3833F83333833830000339111193333391833338F33F8333FF838F300003391
            11833338111833338F338FFFF883F83300003339111888811183333338FF3888
            83FF83330000333399111111993333333388FFFFFF8833330000333333999999
            3333333333338888883333330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
          Spacing = 2
        end
      end
      object Panel18: TPanel
        Left = 497
        Top = 0
        Width = 511
        Height = 551
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 10791869
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        DesignSize = (
          511
          551)
        object btnImprimirReciboOpe: TSpeedButton
          Left = 861
          Top = 776
          Width = 82
          Height = 41
          Hint = 'Imprimir recibo con registros seleccionados'
          Anchors = [akRight, akBottom]
          Caption = 'Imprimir Recibo'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            0003377777777777777308888888888888807F33333333333337088888888888
            88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
            8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
            8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          Layout = blGlyphTop
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = btnImprimirReciboOpeClick
        end
        object lblOp: TLabel
          Left = 14
          Top = 8
          Width = 105
          Height = 13
          Caption = 'Pagos realizados a'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText7: TDBText
          Left = 407
          Top = 491
          Width = 61
          Height = 17
          Alignment = taRightJustify
          DataField = 'subtotal'
          DataSource = sPagosOpes
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label31: TLabel
          Left = 351
          Top = 491
          Width = 52
          Height = 13
          Caption = 'Subtotal:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object grdPagosOperGral: TDBGrid
          Left = 9
          Top = 24
          Width = 495
          Height = 465
          Anchors = [akLeft, akTop, akRight]
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sPagosOpes
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
          ParentFont = False
          PopupMenu = pop
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'DENOMINACION'
              Title.Alignment = taCenter
              Title.Caption = 'Denominaci'#243'n Obra'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 152
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FECHA'
              Title.Alignment = taCenter
              Title.Caption = 'Fecha'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 67
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RESPONSABILIDAD'
              Title.Alignment = taCenter
              Title.Caption = 'Responsabilidad'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 114
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CANTIDAD'
              Title.Alignment = taCenter
              Title.Caption = 'Cantidad'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ENMANO'
              Title.Alignment = taCenter
              Title.Caption = '$ Hora'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 47
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ADICIONAL'
              Title.Alignment = taCenter
              Title.Caption = 'Adicional'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'monto'
              Title.Alignment = taCenter
              Title.Caption = 'Neto en Mano'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 77
              Visible = True
            end>
        end
        object Panel21: TPanel
          Left = 2
          Top = 494
          Width = 185
          Height = 56
          Anchors = [akLeft, akBottom]
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object Label32: TLabel
            Left = 6
            Top = 12
            Width = 38
            Height = 13
            Caption = 'Desde:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label33: TLabel
            Left = 8
            Top = 36
            Width = 36
            Height = 13
            Caption = 'Hasta:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnCalOpeIni: TSpeedButton
            Left = 119
            Top = 5
            Width = 23
            Height = 24
            Hint = 'Calendar'
            Flat = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            Glyph.Data = {
              4E010000424D4E01000000000000760000002800000012000000120000000100
              040000000000D800000000000000000000001000000010000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333330000003333333333333333330000003338888888888888330000003304
              0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
              FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
              F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033F7777777777F4833000000330000000000003333000000333333333333
              333333000000333333333333333333000000}
            Layout = blGlyphRight
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = btnCalOpeIniClick
          end
          object btnCalOpeFin: TSpeedButton
            Left = 119
            Top = 29
            Width = 23
            Height = 24
            Hint = 'Calendar'
            Flat = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            Glyph.Data = {
              4E010000424D4E01000000000000760000002800000012000000120000000100
              040000000000D800000000000000000000001000000010000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333330000003333333333333333330000003338888888888888330000003304
              0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
              FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
              F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033F7777777777F4833000000330000000000003333000000333333333333
              333333000000333333333333333333000000}
            Layout = blGlyphRight
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = btnCalOpeFinClick
          end
          object btnFiltradoOpe: TSpeedButton
            Left = 151
            Top = 19
            Width = 23
            Height = 22
            Hint = 'Desfiltrar'
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
              3333333777333777FF3333993333339993333377FF3333377FF3399993333339
              993337777FF3333377F3393999333333993337F777FF333337FF993399933333
              399377F3777FF333377F993339993333399377F33777FF33377F993333999333
              399377F333777FF3377F993333399933399377F3333777FF377F993333339993
              399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
              99333773FF3333777733339993333339933333773FFFFFF77333333999999999
              3333333777333777333333333999993333333333377777333333}
            NumGlyphs = 2
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = btnFiltradoOpeClick
          end
          object lblFechaIniOpe: TLabel
            Left = 49
            Top = 11
            Width = 64
            Height = 17
            Alignment = taCenter
            AutoSize = False
            Color = cl3DLight
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object lblFechaFinOpe: TLabel
            Left = 49
            Top = 35
            Width = 64
            Height = 17
            Alignment = taCenter
            AutoSize = False
            Color = cl3DLight
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
        end
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'Costos Indirectos'
      ImageIndex = 6
      object Panel22: TPanel
        Left = 0
        Top = 0
        Width = 553
        Height = 551
        Align = alLeft
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 13555670
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label30: TLabel
          Left = 313
          Top = 16
          Width = 90
          Height = 13
          Caption = 'Costo Indirecto:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lblCosto: TDBText
          Left = 313
          Top = 32
          Width = 215
          Height = 62
          DataField = 'GASTO'
          DataSource = sGastoPre
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
        object Label34: TLabel
          Left = 369
          Top = 261
          Width = 52
          Height = 13
          Caption = 'Subtotal:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText9: TDBText
          Left = 423
          Top = 261
          Width = 71
          Height = 13
          Alignment = taRightJustify
          DataField = 'subtotal'
          DataSource = sPagosIndi
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object btnPGO: TSpeedButton
          Left = 312
          Top = 319
          Width = 209
          Height = 22
          Caption = 'Nuevo Pago de Gasto de Obra'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          OnClick = btnPGOClick
        end
        object btnDGGE: TSpeedButton
          Left = 312
          Top = 368
          Width = 209
          Height = 22
          Caption = 'Distribuir Gasto de Empresa'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          OnClick = btnDGGEClick
        end
        object SpeedButton3: TSpeedButton
          Left = 312
          Top = 344
          Width = 209
          Height = 22
          Caption = 'Cargar Gastos en Obra'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          OnClick = SpeedButton3Click
        end
        object Panel23: TPanel
          Left = 312
          Top = 277
          Width = 209
          Height = 41
          BevelOuter = bvNone
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object nvgPagoIndi: TDBNavigator
            Left = 15
            Top = 9
            Width = 108
            Height = 25
            DataSource = sPagoIndi
            VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
            Flat = True
            TabOrder = 0
            OnClick = nvgPagoIndiClick
          end
          object btnGrabarIndi: TBitBtn
            Left = 133
            Top = 9
            Width = 61
            Height = 25
            Caption = 'Grabar'
            Default = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = btnGrabarIndiClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 0
          end
        end
        object grdPagoIndi: TDBGrid
          Left = 312
          Top = 97
          Width = 209
          Height = 160
          DataSource = sPagosIndi
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEditButtonClick = grdPagoIndiEditButtonClick
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Alignment = taCenter
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'FECHA'
              Title.Alignment = taCenter
              Title.Caption = 'Fecha'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 84
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'IMPORTE'
              Title.Alignment = taCenter
              Title.Caption = 'Importe'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 82
              Visible = True
            end>
        end
        object grdItemPre1: TDBGrid
          Left = 8
          Top = 16
          Width = 289
          Height = 529
          BorderStyle = bsNone
          Color = 15395562
          Ctl3D = True
          DataSource = sGastoPre
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDrawColumnCell = grdItemPre1DrawColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'GASTO'
              Title.Alignment = taCenter
              Title.Caption = 'Costos Indirectos'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 244
              Visible = True
            end>
        end
      end
      object Panel24: TPanel
        Left = 553
        Top = 0
        Width = 455
        Height = 551
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 10791869
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label36: TLabel
          Left = 15
          Top = 16
          Width = 102
          Height = 13
          Caption = 'Pagos Efectuados:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label37: TLabel
          Left = 333
          Top = 526
          Width = 34
          Height = 13
          Caption = 'Total:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText8: TDBText
          Left = 369
          Top = 526
          Width = 71
          Height = 13
          Alignment = taRightJustify
          DataField = 'total'
          DataSource = sPagoIndi
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object grdPagosIndi: TDBGrid
          Left = 16
          Top = 34
          Width = 433
          Height = 479
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sPagoIndi
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'GASTO'
              Title.Alignment = taCenter
              Title.Caption = 'Costo Indirecto'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 239
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SUM'
              Title.Alignment = taCenter
              Title.Caption = 'Importe'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Visible = True
            end>
        end
      end
    end
    object TabSheet8: TTabSheet
      Caption = 'Cobros a Inversores'
      ImageIndex = 7
      object Panel25: TPanel
        Left = 0
        Top = 0
        Width = 633
        Height = 551
        Align = alLeft
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 13555670
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          633
          551)
        object Label38: TLabel
          Left = 394
          Top = 16
          Width = 65
          Height = 13
          Anchors = [akTop, akRight]
          Caption = 'Inversores:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label39: TLabel
          Left = 10
          Top = 16
          Width = 144
          Height = 13
          Caption = 'Inversi'#243'n para esta Obra:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText10: TDBText
          Left = 240
          Top = 484
          Width = 71
          Height = 13
          Alignment = taRightJustify
          DataField = 'subtotal'
          DataSource = sCobroInversor
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label40: TLabel
          Left = 186
          Top = 484
          Width = 52
          Height = 13
          Caption = 'Subtotal:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Panel26: TPanel
          Left = 10
          Top = 504
          Width = 215
          Height = 41
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object DBNavigator1: TDBNavigator
            Left = 9
            Top = 8
            Width = 96
            Height = 25
            DataSource = sCobroInversor
            VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
            Flat = True
            TabOrder = 0
            OnClick = DBNavigator1Click
          end
          object btnGrabarCobro: TBitBtn
            Left = 146
            Top = 8
            Width = 61
            Height = 25
            Caption = 'Grabar'
            Default = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = btnGrabarCobroClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 0
          end
        end
        object grdInversores: TDBGrid
          Left = 392
          Top = 32
          Width = 233
          Height = 449
          Anchors = [akTop, akRight]
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sInversores
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'APENOM'
              Title.Alignment = taCenter
              Title.Caption = 'Apellido y Nombre'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 147
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PARTE'
              Title.Alignment = taCenter
              Title.Caption = 'Parte'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 44
              Visible = True
            end>
        end
        object grdCobroInversor: TDBGrid
          Left = 10
          Top = 32
          Width = 375
          Height = 449
          Anchors = [akLeft, akTop, akRight]
          DataSource = sCobroInversor
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEditButtonClick = grdCobroInversorEditButtonClick
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Alignment = taCenter
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'FECHA'
              Title.Alignment = taCenter
              Title.Caption = 'Fecha'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 105
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MONTO'
              Title.Alignment = taCenter
              Title.Caption = 'Monto'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 82
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'COMPROBANTE'
              Title.Alignment = taCenter
              Title.Caption = 'Comprobante'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 99
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'OBSERVACIONES'
              Title.Alignment = taCenter
              Title.Caption = 'Observaciones'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 147
              Visible = True
            end>
        end
        object Panel28: TPanel
          Left = 441
          Top = 488
          Width = 185
          Height = 56
          Anchors = [akTop, akRight]
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          object Label43: TLabel
            Left = 6
            Top = 12
            Width = 38
            Height = 13
            Caption = 'Desde:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label44: TLabel
            Left = 8
            Top = 36
            Width = 36
            Height = 13
            Caption = 'Hasta:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object SpeedButton4: TSpeedButton
            Left = 119
            Top = 5
            Width = 23
            Height = 24
            Hint = 'Calendar'
            Flat = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            Glyph.Data = {
              4E010000424D4E01000000000000760000002800000012000000120000000100
              040000000000D800000000000000000000001000000010000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333330000003333333333333333330000003338888888888888330000003304
              0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
              FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
              F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033F7777777777F4833000000330000000000003333000000333333333333
              333333000000333333333333333333000000}
            Layout = blGlyphRight
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton4Click
          end
          object SpeedButton5: TSpeedButton
            Left = 119
            Top = 29
            Width = 23
            Height = 24
            Hint = 'Calendar'
            Flat = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            Glyph.Data = {
              4E010000424D4E01000000000000760000002800000012000000120000000100
              040000000000D800000000000000000000001000000010000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333330000003333333333333333330000003338888888888888330000003304
              0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
              FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
              F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
              000033F7777777777F4833000000330000000000003333000000333333333333
              333333000000333333333333333333000000}
            Layout = blGlyphRight
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton5Click
          end
          object btnFiltradoCobro: TSpeedButton
            Left = 151
            Top = 19
            Width = 23
            Height = 22
            Hint = 'Desfiltrar'
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
              3333333777333777FF3333993333339993333377FF3333377FF3399993333339
              993337777FF3333377F3393999333333993337F777FF333337FF993399933333
              399377F3777FF333377F993339993333399377F33777FF33377F993333999333
              399377F333777FF3377F993333399933399377F3333777FF377F993333339993
              399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
              99333773FF3333777733339993333339933333773FFFFFF77333333999999999
              3333333777333777333333333999993333333333377777333333}
            NumGlyphs = 2
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = btnFiltradoCobroClick
          end
          object lblCobroIni: TLabel
            Left = 49
            Top = 11
            Width = 64
            Height = 17
            Alignment = taCenter
            AutoSize = False
            Color = cl3DLight
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object lblCobroFin: TLabel
            Left = 49
            Top = 35
            Width = 64
            Height = 17
            Alignment = taCenter
            AutoSize = False
            Color = cl3DLight
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
        end
        object btnActualizacion: TBitBtn
          Left = 296
          Top = 519
          Width = 97
          Height = 25
          Caption = 'Actualizaci'#243'n'
          Default = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = btnActualizacionClick
          Glyph.Data = {
            36050000424D3605000000000000360400002800000010000000100000000100
            0800000000000001000000000000000000000001000000010000000000000101
            0100020202000303030004040400050505000606060007070700080808000909
            09000A0A0A000B0B0B000C0C0C000D0D0D000E0E0E000F0F0F00101010001111
            1100121212001313130014141400151515001616160017171700181818001919
            19001A1A1A001B1B1B001C1C1C001D1D1D001E1E1E001F1F1F00202020002121
            2100222222002323230024242400252525002626260027272700282828002929
            29002A2A2A002B2B2B002C2C2C002D2D2D002E2E2E002F2F2F00303030003131
            3100323232003333330034343400353535003636360037373700383838003939
            39003A3A3A003B3B3B003C3C3C003D3D3D003E3E3E003F3F3F00404040004141
            4100424242004343430044444400454545004646460047474700484848004949
            49004A4A4A004B4B4B004C4C4C004D4D4D004E4E4E004F4F4F00505050005151
            5100525252005353530054545400555555005656560057575700585858005959
            59005A5A5A005B5B5B005C5C5C005D5D5D005E5E5E005F5F5F00606060006161
            61006262620063636300646464006565650065686B00656C7100697078006C74
            7E006E788400707B8900717E8E007280920071819500708297006F8298006D81
            98006C8198006A829B0068839E006683A0006584A1006485A3006188AA005F8C
            B1005E8EB6005E91BA005F93BD005C93C1005793C5005493C7005293C8005096
            CF005392C8005792C6005C92C2006592BC006B91B7006E90B200728DAC00768B
            A5007B889D008185950087879400928B92009F909100AD969100B89A9100BD9D
            9200C19F9300C4A29300C7A49400CCA79300D2AB9300D8AE9100DFB28F00E1B3
            8F00E2B38F00E1B28F00E1B18D00E0B08D00DEAE8C00DEAE8B00DCAC8B00DAAA
            8B00DAA98A00D8A88B00D6A68A00D3A38900D1A08800CF9E8800CD9B8600CA97
            8300C6938100C4907E00C18D7C00BF8B7B00BB887A00B9867900B7847800B683
            7700B5837700B5827700B3817800B3817900B3827C00B4827E00B5828000B582
            8100B6828200B6828200B6828300B7838300B7848400B8858600B9868900BB85
            8F00C07E9B00CB6FB000D65AC000DF46CF00EA2DE000F31CEE00F90EF800FC06
            FC00FE02FE00FE01FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
            FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE01
            FE00FD07FB00FC11F700FA23EF00F73BE400F164D200EB91BE00E7AEB100E5B9
            AC00E4C1A900E5C6A600E6C9A500EACBA200EDCEA000EFD09F00F0D0A100F0D2
            A500F1D4A800F1D5AB00F2D7B000F1D8B400F1D9BA00F1DABF00EFDAC400EFDC
            C700EFDDCC00F3E3D100F4E6D600F7EADB00F9EEE100FAF2E800FBF5ED00FBF6
            F000FCF9F500FDFBF800FEFCFA00FEFDFC00FEFCFB00FEFDFB00D2D2BCBCBCBC
            BCBCBCBCBCBCBCBCBCD2D2D268F6F3EFEDEBE9E7E7E7E7E7BCD2D27D818AF3EF
            EEECEAE8E6E6E6E7BCD2D2D281818BF3F0EEECEBE8E6E6E7BCD2D2D2B481818A
            F3EFEEECEAE8E7E7BCD2D2D2BFFC8184B591B5AA97EAE8E7BCD2D2D2BFFDF892
            94E4F1E29297EAEABCD2D2D2A9FDFA92F0F5F4FFE2AAEDECBCD2D2D2A9FDFDB5
            F6F6F5F9F1B5EEEDBCD2D2D2A2FDFD92F2F8F6F6E391EFEEBCD2D2D2A2FDFDF2
            95F2F6F09493F0E2BCD2D2D29CFDFDFDF292B592E1AFAFAFBCD2D2D29CFDFDFD
            FDFDFDFFF1AF9CA2AED2D2D29AFDFDFDFDFDFDFDF2AFE7AAD2D2D2D29AFAFAF9
            F9F9F9F9F2AFA8D2D2D2D2D29AA2A2A2A2A2A2A2A2AFD2D2D2D2}
          Spacing = 3
        end
      end
      object Panel27: TPanel
        Left = 633
        Top = 0
        Width = 375
        Height = 551
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 10791869
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        DesignSize = (
          375
          551)
        object btnImprimirCobro: TSpeedButton
          Left = 285
          Top = 504
          Width = 82
          Height = 41
          Hint = 'Imprimir recibo con registros seleccionados'
          Anchors = [akTop, akRight]
          Caption = 'Imprimir Recibo'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            0003377777777777777308888888888888807F33333333333337088888888888
            88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
            8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
            8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          Layout = blGlyphTop
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = btnImprimirCobroClick
        end
        object Label41: TLabel
          Left = 18
          Top = 16
          Width = 172
          Height = 13
          Caption = 'Cobros totales para esta Obra:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText11: TDBText
          Left = 305
          Top = 485
          Width = 61
          Height = 17
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          DataField = 'subtotal'
          DataSource = sCobros
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label42: TLabel
          Left = 249
          Top = 485
          Width = 52
          Height = 13
          Anchors = [akTop, akRight]
          Caption = 'Subtotal:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object grdCobrosTotales: TDBGrid
          Left = 8
          Top = 31
          Width = 361
          Height = 449
          Anchors = [akLeft, akTop, akRight]
          BorderStyle = bsNone
          Color = 15395562
          DataSource = sCobros
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEnter = edtFechaInicioEnter
          OnExit = edtFechaInicioExit
          Columns = <
            item
              Expanded = False
              FieldName = 'APENOM'
              Title.Alignment = taCenter
              Title.Caption = 'Apellido y Nombre'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 151
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FECHA'
              Title.Alignment = taCenter
              Title.Caption = 'Fecha'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 67
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MONTO'
              Title.Alignment = taCenter
              Title.Caption = 'Monto'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 63
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 1016
    Height = 83
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15790320
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    DesignSize = (
      1016
      83)
    object Label1: TLabel
      Left = 804
      Top = 3
      Width = 201
      Height = 26
      Alignment = taRightJustify
      Anchors = [akLeft, akRight]
      Caption = 'Datos generales del Inmueble y de Presupuestaci'#243'n'
      Color = clNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object DBText1: TDBText
      Left = 8
      Top = 51
      Width = 73
      Height = 24
      DataField = 'ID_OBRA'
      DataSource = sObra
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 136
      Top = 51
      Width = 80
      Height = 24
      AutoSize = True
      DataField = 'DENOMINACION'
      DataSource = sPresupuesto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 136
      Top = 42
      Width = 63
      Height = 11
      Caption = 'Denominaci'#243'n:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -9
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 43
      Width = 53
      Height = 11
      Caption = 'Identificador:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -9
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton2: TSpeedButton
      Left = 1164
      Top = 36
      Width = 65
      Height = 42
      Anchors = [akTop, akRight]
      Caption = 'Otra Obra'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF
        F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F
        F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF
        F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F
        F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF
        F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
        F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
        333337FFFFFFFF77333330000000000333333777777777733333}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object Label57: TLabel
      Left = 8
      Top = 7
      Width = 90
      Height = 11
      Caption = 'Total Presupuestado:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -9
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
    end
    object totalPresupuestado: TLabel
      Left = 8
      Top = 19
      Width = 100
      Height = 23
      Caption = 'Identificador:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Arial Narrow'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel33: TPanel
      Left = 160
      Top = 31
      Width = 1074
      Height = 3
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      Color = 666076
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Panel34: TPanel
      Left = 184
      Top = 39
      Width = 1050
      Height = 2
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      Color = 9009548
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 662
    Width = 1016
    Height = 42
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 13555670
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Panel35: TPanel
      Left = 2
      Top = 7
      Width = 1020
      Height = 30
      BevelOuter = bvNone
      Color = clBtnHighlight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      DesignSize = (
        1020
        30)
      object Image5: TImage
        Left = 8
        Top = 2
        Width = 65
        Height = 25
        Picture.Data = {
          0A544A504547496D61676585100000FFD8FFE000104A46494600010101006000
          600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
          0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
          3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
          3232323232323232323232323232323232323232323232323232323232323232
          32323232323232323232323232FFC0001108012C028603012200021101031101
          FFC4001F0000010501010101010100000000000000000102030405060708090A
          0BFFC400B5100002010303020403050504040000017D01020300041105122131
          410613516107227114328191A1082342B1C11552D1F02433627282090A161718
          191A25262728292A3435363738393A434445464748494A535455565758595A63
          6465666768696A737475767778797A838485868788898A92939495969798999A
          A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
          D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
          01010101010101010000000000000102030405060708090A0BFFC400B5110002
          0102040403040705040400010277000102031104052131061241510761711322
          328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
          292A35363738393A434445464748494A535455565758595A636465666768696A
          737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
          A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
          E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F4EF
          15F8F22F0EDD9B2B7B37BCBB58FCC95533FBA0C76C631FC4CCC461723804E7A6
          77EC75051A723EA128B7B911F993C770D1AB47EE42B1007E27B724D797FC539F
          4883572F6AFF00F13396DCADDF9448DBB0AB42C7FDB0E154639C31CF4153DF78
          2FC4DE25697549CAD9CF7BA3C71CD19C2996618F91C1076A9C03C7422B0F6925
          26AD73D6583A2E8C272972DF76FE5D3EF3D466D4EC2DDE049EFADA27B8FF0052
          AF2AA997A7DDC9E7A8E9EB560C91895622EA246059509E4818C903DB23F315E4
          BAA7C3EF13EAAC93F9B650BD8D85B5AD92B12CD98C06660C3846DE3AF39071C5
          69EB5E1DF18EA9AD36BD6B241657F676F145651F9A195CB03E7EEEC396E3AE76
          8E9DAB9E5FCA73FD5A8BB7EF175BF976FEBA6A7A19BBB75B792E0DC44218F779
          92171B536FDEC9E831839F4C5469A958C91C72A5E5BB472BF9713ACAA43B671B
          41CF2720F1ED5E6C3C0DE23B2F0EEA7E18B292192C2F2F2271772CA77F945479
          C4A8E72595781D433722A07F87BAECBA6AE8D731D93D947ACC57AAF6F2794044
          C8C25545FE0209040E9927D28E797F28D61A86EEAADFF0EFFF0000F571344663
          08910CA064A6E1B80F5C53EB85F09F85B5CD23C5FA8EA1AADDC77B13DAA5B437
          59C4922A91B4B8FEF63827BE335DD56916DAD558E5AB08C2568CAE1451453320
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2802A1D2EC5AE4DCC96B1C93160C249177B2
          91D304E718ED8E956E8A281DDB0A28A281051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          40051451400514514005145140051451401FFFD9}
      end
      object lblCerrar: TLabel
        Left = 972
        Top = 6
        Width = 30
        Height = 13
        Cursor = crHandPoint
        Anchors = [akTop, akRight]
        Caption = 'Volver'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = lblCerrarClick
      end
      object Label13: TLabel
        Tag = 3
        Left = 885
        Top = 6
        Width = 58
        Height = 13
        Cursor = crHandPoint
        Anchors = [akTop, akRight]
        Caption = '+ Proveedor'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label19Click
      end
      object Label14: TLabel
        Tag = 4
        Left = 806
        Top = 6
        Width = 46
        Height = 13
        Cursor = crHandPoint
        Anchors = [akTop, akRight]
        Caption = '+ Material'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label19Click
      end
      object Label19: TLabel
        Tag = 3
        Left = 697
        Top = 6
        Width = 77
        Height = 13
        Cursor = crHandPoint
        Anchors = [akTop, akRight]
        Caption = '+ Subcontratista'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label19Click
      end
      object Shape4: TShape
        Left = 957
        Top = 3
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape5: TShape
        Left = 870
        Top = 3
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape6: TShape
        Left = 791
        Top = 3
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape7: TShape
        Left = 682
        Top = 3
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Label20: TLabel
        Tag = 8
        Left = 615
        Top = 6
        Width = 49
        Height = 13
        Cursor = crHandPoint
        Anchors = [akTop, akRight]
        Caption = '+ Operario'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label19Click
      end
      object Shape8: TShape
        Left = 600
        Top = 3
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Label47: TLabel
        Tag = 7
        Left = 535
        Top = 6
        Width = 47
        Height = 13
        Cursor = crHandPoint
        Anchors = [akTop, akRight]
        Caption = '+ Inversor'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label47Click
      end
      object Shape9: TShape
        Left = 520
        Top = 3
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Panel36: TPanel
        Left = 67
        Top = 24
        Width = 953
        Height = 3
        Anchors = [akLeft, akTop, akRight]
        Color = 10790052
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object sObra: TDataSource
    DataSet = Datos.cObra
    OnStateChange = sObraStateChange
    Left = 272
    Top = 16
  end
  object sPresupuesto: TDataSource
    DataSet = Datos.cPresupuesto
    Left = 304
    Top = 16
  end
  object sItemPre: TDataSource
    DataSet = Datos.cItemPre
    OnDataChange = sItemPreDataChange
    Left = 336
    Top = 16
  end
  object sCertificacion: TDataSource
    DataSet = Datos.cCertificacion
    OnStateChange = sCertificacionStateChange
    Left = 368
    Top = 16
  end
  object cImagenObra: TSQLClientDataSet
    CommandText = 
      'SELECT FIRST 12 id_imagen_obra, fecha, imagen FROM imagen_obra W' +
      'HERE id_obra = :id_obra and id_imagen_obra > :idImagenObra order' +
      ' by id_imagen_obra'
    Aggregates = <>
    IndexFieldNames = 'fecha'
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'id_obra'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'idImagenObra'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 400
    Top = 16
    object cImagenObraID_IMAGEN_OBRA: TIntegerField
      FieldName = 'ID_IMAGEN_OBRA'
    end
    object cImagenObraFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
    end
    object cImagenObraIMAGEN: TBlobField
      FieldName = 'IMAGEN'
      Size = 1
    end
  end
  object sRubFact: TDataSource
    DataSet = Datos.cRubIt2
    OnDataChange = sRubFactDataChange
    Left = 272
    Top = 48
  end
  object sMatFact: TDataSource
    DataSet = Datos.cMatIt2
    Left = 304
    Top = 48
  end
  object sOtroFact: TDataSource
    DataSet = Datos.cOtroMat
    Left = 336
    Top = 48
  end
  object sCompra: TDataSource
    DataSet = Datos.cCompra
    OnStateChange = sCompraStateChange
    OnDataChange = sCompraDataChange
    Left = 368
    Top = 48
  end
  object sRenglonCompra: TDataSource
    DataSet = Datos.cRenglonCompra
    OnStateChange = sCompraStateChange
    OnDataChange = sRenglonCompraDataChange
    Left = 400
    Top = 48
  end
  object sPagoSub: TDataSource
    DataSet = Datos.cPago_Sub
    OnStateChange = sPagoSubStateChange
    Left = 480
    Top = 48
  end
  object sProv1: TDataSource
    DataSet = Datos.cProv1
    OnDataChange = sProv1DataChange
    Left = 448
    Top = 48
  end
  object cdsPagosSubs: TSQLClientDataSet
    CommandText = 
      'select O.ID_OBRA, DENOMINACION, PS.FECHA, ENMANO from OBRA O, PR' +
      'ESUPUESTO P,  PAGO_SUB PS where O.ID_OBRA = P.ID_PRESUPUESTO and' +
      ' O.ID_OBRA = PS.ID_OBRA and PS.ID_SUB = :id_sub'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'id_sub'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 512
    Top = 48
    object cdsPagosSubsID_OBRA: TFloatField
      FieldName = 'ID_OBRA'
    end
    object cdsPagosSubsDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 32
    end
    object cdsPagosSubsFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
    end
    object cdsPagosSubsENMANO: TFloatField
      FieldName = 'ENMANO'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsPagosSubssubtotal: TAggregateField
      FieldName = 'subtotal'
      Visible = True
      Active = True
      currency = True
      Expression = 'sum(enmano)'
    end
  end
  object sPagosSubs: TDataSource
    DataSet = cdsPagosSubs
    Left = 544
    Top = 48
  end
  object sOpe1: TDataSource
    DataSet = Datos.cOpe1
    OnDataChange = sOpe1DataChange
    Left = 584
    Top = 48
  end
  object sPagoOpe: TDataSource
    DataSet = Datos.cPago_Ope
    OnStateChange = sPagoOpeStateChange
    Left = 616
    Top = 48
  end
  object cdsPagosOpe: TSQLClientDataSet
    CommandText = 
      'select O.ID_OBRA, DENOMINACION, PO.FECHA, RESPONSABILIDAD, CANTI' +
      'DAD, PO.ENMANO, PO.ADICIONAL '#13#10'from OBRA O, PRESUPUESTO P,  PAGO' +
      '_OPERARIO PO, RESPONSABILIDAD R '#13#10'where O.ID_OBRA = P.ID_PRESUPU' +
      'ESTO and O.ID_OBRA = PO.ID_OBRA and R.ID_RESPONSABILIDAD = PO.ID' +
      '_RESPONSABILIDAD and PO.ID_OPERARIO = :id_operario'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'id_operario'
        ParamType = ptInput
        Value = '0'
      end>
    OnCalcFields = cdsPagosOpeCalcFields
    DBConnection = Datos.Con
    Left = 648
    Top = 48
    object cdsPagosOpeID_OBRA: TFloatField
      FieldName = 'ID_OBRA'
    end
    object cdsPagosOpeDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 32
    end
    object cdsPagosOpeRESPONSABILIDAD: TStringField
      FieldName = 'RESPONSABILIDAD'
      Required = True
      Size = 30
    end
    object cdsPagosOpeFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
    end
    object cdsPagosOpeCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
      DisplayFormat = '0.00'
    end
    object cdsPagosOpeENMANO: TFloatField
      FieldName = 'ENMANO'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsPagosOpemonto: TFloatField
      FieldKind = fkCalculated
      FieldName = 'monto'
      DisplayFormat = '#,###,##0.00'
      Calculated = True
    end
    object cdsPagosOpeADICIONAL: TFloatField
      FieldName = 'ADICIONAL'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsPagosOpesubtotal: TAggregateField
      FieldName = 'subtotal'
      Visible = True
      Active = True
      currency = True
      Expression = 'sum(cantidad * enmano)'
    end
  end
  object sPagosOpes: TDataSource
    DataSet = cdsPagosOpe
    Left = 680
    Top = 48
  end
  object sGastoPre: TDataSource
    DataSet = Datos.cGasto
    OnDataChange = sGastoPreDataChange
    Left = 584
    Top = 16
  end
  object sPagoIndi: TDataSource
    DataSet = cdsPagosIndi
    OnStateChange = sPagoIndiStateChange
    Left = 616
    Top = 16
  end
  object cdsPagosIndi: TSQLClientDataSet
    CommandText = 
      'select GASTO, sum(IMPORTE) from PAGOS_INDIRECTOS PI, GASTO G'#13#10'wh' +
      'ere PI.ID_GASTO = G.ID_GASTO and ID_OBRA = :id_obra'#13#10'group by GA' +
      'STO'
    Aggregates = <>
    AggregatesActive = True
    IndexFieldNames = 'gasto'
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftFloat
        Name = 'id_obra'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 648
    Top = 16
    object cdsPagosIndiGASTO: TStringField
      FieldName = 'GASTO'
      Size = 52
    end
    object cdsPagosIndiSUM: TFloatField
      FieldName = 'SUM'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsPagosInditotal: TAggregateField
      FieldName = 'total'
      Visible = True
      Active = True
      currency = True
      Expression = 'sum(sum)'
    end
  end
  object sPagosIndi: TDataSource
    DataSet = Datos.cPagoIndi
    Left = 680
    Top = 16
  end
  object cdsImagen: TSQLClientDataSet
    CommandText = 
      'SELECT fecha, detalle, imagen FROM imagen_obra WHERE id_obra = :' +
      'id_obra and id_imagen_obra = :id_imagen_obra'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'id_obra'
        ParamType = ptInput
        Value = '0'
      end
      item
        DataType = ftString
        Name = 'id_imagen_obra'
        ParamType = ptInput
        Value = '0'
      end>
    DBConnection = Datos.Con
    Left = 232
    Top = 48
    object cdsImagenFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
    end
    object cdsImagenDETALLE: TStringField
      FieldName = 'DETALLE'
      Size = 102
    end
    object cdsImagenIMAGEN: TBlobField
      FieldName = 'IMAGEN'
      Size = 1
    end
  end
  object sInversores: TDataSource
    DataSet = Datos.cdsInversores
    OnDataChange = sInversoresDataChange
    Left = 544
    Top = 16
  end
  object sCobroInversor: TDataSource
    DataSet = Datos.cCobroInversor
    OnStateChange = sCobroInversorStateChange
    Left = 512
    Top = 16
  end
  object cdsCobrosInversores: TSQLClientDataSet
    CommandText = 
      'select FECHA, MONTO, APELLIDO||'#39', '#39'|| NOMBRE APENOM, COMPROBANTE' +
      ' from COBRO_INVERSOR CO,  INVERSOR I where CO.id_inversor = I.id' +
      '_inversor and id_obra = :id_obra'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftFloat
        Name = 'id_obra'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 480
    Top = 16
    object cdsCobrosInversoresAPENOM: TStringField
      FieldName = 'APENOM'
      Size = 54
    end
    object cdsCobrosInversoresFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
    end
    object cdsCobrosInversoresMONTO: TFloatField
      FieldName = 'MONTO'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsCobrosInversoresCOMPROBANTE: TStringField
      Alignment = taCenter
      FieldName = 'COMPROBANTE'
    end
    object cdsCobrosInversoressubtotal: TAggregateField
      FieldName = 'subtotal'
      Visible = True
      Active = True
      currency = True
      Expression = 'sum(monto)'
    end
  end
  object sCobros: TDataSource
    DataSet = cdsCobrosInversores
    Left = 448
    Top = 16
  end
  object cdsBusqueda: TSQLClientDataSet
    CommandText = 
      'select ID_MATERIAL, MATERIAL, RUBRO, PRECIO '#13#10'from MATERIAL M,  ' +
      'RUBRO R'#13#10'where M.ID_RUBRO = R.ID_RUBRO and R.ID_PROVEEDOR = :idP' +
      'roveedor and (MATERIAL like :minusc or MATERIAL like :mayusc)'
    Aggregates = <>
    IndexFieldNames = 'MATERIAL'
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'idProveedor'
        ParamType = ptInput
        Value = '0'
      end
      item
        DataType = ftString
        Name = 'minusc'
        ParamType = ptInput
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'mayusc'
        ParamType = ptInput
        Value = '%'
      end>
    DBConnection = Datos.Con
    Left = 232
    Top = 16
    object cdsBusquedaID_MATERIAL: TFloatField
      FieldName = 'ID_MATERIAL'
      Required = True
    end
    object cdsBusquedaMATERIAL: TStringField
      FieldName = 'MATERIAL'
      Required = True
      Size = 50
    end
    object cdsBusquedaRUBRO: TStringField
      FieldName = 'RUBRO'
      Required = True
      Size = 30
    end
    object cdsBusquedaPRECIO: TFloatField
      FieldName = 'PRECIO'
      Required = True
    end
  end
  object sBusqueda: TDataSource
    DataSet = cdsBusqueda
    Left = 200
    Top = 16
  end
  object pop: TPopupMenu
    Left = 480
    Top = 264
    object Pasedematerial1: TMenuItem
      Caption = 'Pase de material...'
      OnClick = Pasedematerial1Click
    end
  end
end
